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EDITORIAL 


Chers gentils membres, 


C'EST LE DRAME ! Nous sommes en retard ! JPC, encore JPC et toujours 
JPC. 


+ 

Avec nos manies de sans cesse vouloir faire mieux que précédemment, nous 

avons décidé de changer d’imprimeur après le retard et la piètre qualité du 
numéro de septembre. 


Mais hélas, la pire des choses nous arrive: nous sommes encore plus en 
retard. j'écris ces lignes dramatiques le 20 octobre, date à laquelle le numéro de 
novembre devrait être presque terminé ! De plus, ce changement nous oblige aussi 
à retrouver l’ancienne formule de 50/55 pages... 


Allez ! Je suis sûr que nous sommes déjà tout excusé. C’est promis : d'ici le 
numéro de décembre/janvier nous serons dans les temps. 


Nous sommes toujours de plus en plus nombreux à PPC-PC et surtout vous 
êtes très nombreux à nous écrire ou a appeler Philippe. Nous allons avoir bientôt 
une ligne téléphonique équipée d’un répondeur automatique entièrement consacrée 
à vos appels et à vos questions. Nous vous en dirons plus dans le prochain numéro. 


Je vous laisse lire votre journal préféré, il s’est déjà fait assez attendre et il 
est tout plein de bonnes choses. 


Michel MARTINET 
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PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC PARIS se réunit une 
fois par mois, en plein coeur de Paris. Amenez votre 
matériel, votre bonne volonté et vos idées ! Plus vous en 
apporterez, et plus vous en trouverez chez vos collègues de 
PPC. Ces réunions se déroulent de manière très libre, aucun 
ordre du jour, discussion ou autre n'étant imposé. Un 
membre du Bureau est toujours présent. Ainsi, si vous 
désirez remettre votre article tout frais au journal, si 
vous avez des suggestions à faire, si vous voulez vous 
procurer des anciens numéros de JPC, ce sera en principe 
toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un seul instant 
venez nous rejoindre tous les premiers samedi de chaque 
mois, au CENTRE DE JEUNESSE ET DE LOISIRS JEAN VERDIER 

11, rue de Lancry 

75010 PARIS 
Et en montant au deuxième étage, vous entendrez des éclats 
de rire et des discussions passionnées vers la salle 215. 
Attention, toutefois, de venir entre 16 et 19 h. 


Pour l'accès en métro, trois possibilités s'offrent à vous 

à savoir: 

Métro Strasbourg St Denis: sortie Porte St Martin / Bld St 
Denis, coté pairs. 

Métro République: sortie Bld St Martin, coté pairs. 

Métro J. Bonsergent: Sortie Bld Magenta, coté impairs. 


J'oubliais: JPC est souvent distribué en avant-première 
lors de ces réunions ... À bon entendeur Salut ! 


Les dates des prochaines réunions sont: (16h-19h) 
- Le Samedi 16 novembre 1985 
- Le Samedi 7 décembre 1985 


À Bientôt... 
Pierre DAVID 
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DU NOUVEAU CHEZ HEWLETT-PACKARD 


Le SICOB est toujours Le moment où Les 
constructeurs présentent leurs nouveautés. Cette 
année encore, HP n'a pas manqué à cette règle. Je 
vais vous parler maïîntenant de trois nouveaux 
produits HP, deux étaient au SICOB, Le troisième 
a fait son apparition aux Etats-Unis. 


Commençons par Le plus gros; Le nouvel HP 
VECTRA est un ordinateur compatible IBM/AT. IL 
est équipé du microprocesseur Intel 80286 
pédalant à 8 Mhz, d'unités à disquette 5 pouces 
1/4 de 1,2 Mo et d'unités 3 pouces 1/2. Quand au 
prix, HP annonce 30% de moins qu'Ibm !! 


Deuxième produit, Le nouveau PORTABLE PLUS qui 
n'est autre qu'une version améliorée du Portable 
HP110. IL comprend un écran à cristaux liquides 
de 25 lignes de 80 caractères soit 200 par 480 
points de résolution. La RAM peut atteindre 896 
Ko et La ROM 3 Mo. Il accepte en ROM Les 
logiciel LOTUS 1.2.3, MS-WORD, Memo Marker/Time 
Management, Executive Card Manager, PC 2622 
(programme d'émulation des terminaux HP2622). Sa 
masse est d'environ 5 kilos et il utilise pour 

raisons de fiabilité un disque électronique 
au Lieu d'un disque classique. Le temps d'accès 
aux données est 10 fois plus court et 
ltalimentation se fait par batteries. En version 
de base (192 Ko ROM/128 kO RAM) il coûte environ 
25000 F.HT et dispose d'une interface HPIL lui 
permettant de se raccorder à La fameuse ThinkJet 
et au drive HP9114A. 


Enfin, Le meilleur pour La fin un nouveau 
module pour HP41. Ce module vous a déjà été 
annoncé par Eric GENGOUX PPC #108 dans Le numéro 
de dJuillet/Aout. Il est déjà en vente aux 
Etats-Unis au prix de 49$ ! et est donné à tout 
acheteur d'un calculateur de La série 40 depuis 
le ler Août et jusqu'au 15 Novembre. 
Ddépêchez-vous ! 


J.BAUDIER PPC#192 
NDLR: Ceci est valable uniquement aux Etat-Unis 


mais  renseignez-vous. Souvent, avec un petit 
coup de téléphone plus un numéro de carte VISA, 


les achats directs aux Etats-Unis sont moins 
chers que chez nous (T.T.C.) ! 


nn mm mm mm mm mm mm mm mm mm mmm mm mm mm mm mm 


MODULES MEMOIRES POUR HP71 


La firme HHP, (Hand-Held Products, ne pas 
confondre avec HP) aux Etats-Unis, a développé 
et commercialise des modules mémoire pour le 
HP71. Ils existent en plusieurs versions: 


- 96 Ko Ram 999 $ 
- 64 Ko Ram 695 $ 
- 32 Ko Ram 399 $ 
- 32 Ko Ram + 32 Ko Eprom 495 $ 
- 32 Ko Eprom 99 $ 


ILS viennent s'enficher dans Le Logement du 
lecteur de cartes, d'où incompatibilité si vous 
possédez déjà ce dernier. La procédure à suivre 
est classique: éteindre Le HP71, enlevez le 
cache du logement de Lecteur de cartes, rentrer 
le module en alignant Les broches émergeant du 
circuit imprimé, appuyer sur Le module de 
manière à Le caler dans cette position, remettre 
le couvercle du Logement (pas Le cache). La 
suite est tout aussi classique: rallumer Le HP71 
avec La fébrilité digne de ce moment, voir le 
Memory Lost qui peut intervenir, et taper avec 
anxiété l'ordre MEM. Contempler enfin Le chiffre 
115244 (Avec Le 96 Ko bien entendu) avec toute 
La satisfaction que procure une affaire 
rondement menée ! 

Pour minimiser Le risque de Memory Lost 
inhérent à ce type de situation, il faut éviter 
d'appuyer sur une des touches du HP71 alors que 
la manipulation est en cours. Le risque existe 
toujours, mais est diminué. 


Extérieurement, votre HP71 est un HP71 normal, 
à ceci près qu'il y a à La place du Lecteur de 
cartes un pavé noir, avec écrit en lettres dorées: 
71 M/M HAND HELD 
96K RAM PRODUCTS 


Malgré tous Les efforts faits par HHP, la 
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présentation n'a pas Le fini et La qualité HP. 
Les différences sont minimes, mais perceptibles. 
Le noir est juste un peu trop noir, et Les 
lettres dorées ont tendance à s'effacer à la 
longue. Je sais bien que ce n'est pas un critère 
qui influera sur La décision d'achat ou pas, 
mais ne frottez quand même pas trop votre module ! 


Passons à des considérations plus 
informatiques: Les quelques dizaines de milliers 
d'octets supplémentaires font partie de La Ram 
eu même titre que Les 4 Ko des modules HP. Nous 
parlerons ultérieurement des  Eproms. Cette 
mémoire principale peut aussi être déclarée 
“mémoire indépendante! (FREE PORT). Ce ne sont 
plus 4096 octets qui disparaissent alors, mais 
32768 1 En effet, Les mémoires indépendantes 
font 32 Ko. Un module de 96 Ko est en fait 
constitué de 3 modules de 32 Ko, qui sont 
déclarés indépendants par FREE PORT(5.0), FREE 
PORT(5.01) et FREE PORT(5.02). Un module de 64 
Ko est situé en 5.0 et 5.01 . Enfin, un module 
32 Ko est en 5.0 uniquement. 


Les versions 32 Ko Ram et 64 Ko Ram disposent 
d'une pile intégrée qui assure, selon Le 
constructeur, 5 ans de bons et loyaux services 
en “utilisation normale". 


Les Eproms sont directement considérées comme 
des ports indépendants de 32 Ko, ou plus 
Simplement comme un module de mémoire morte logé 
dans Le port 5. Il est intéressant de noter que 
ce port occupe toujours 32 Ko (ou 64 K-quartets) 
d'espace adressable, quelle que soit La taille 
de l'Eprom qui y réside. Le type d'Eprom 
nécessaire est La 27256, bien que l'on puisse 
insérer des plus petites capacités. Le temps 
d'accès doit être inférieur à 200 ns. Voilà pour 
les considérations techniques. 

Mais, me direz-vous, programmer une  Eprom 
demande un matériel couteux, un logiciel qui ne 
l'est pas moins, et Le tout est hors de portée 
d'un  emateur ? Alors, dois-je me contenter 
d'Eproms toutes faites, fabriquées et vendues 
par une quelconque société ? 

Non ! PPC-Paris devance vos souhaits. Je suis 
sûr que vous serez nombreux à acheter un de ces 
modules. Je peux déjà vous annoncer que vous 
pourrez acheter une Eprom "standard! (regroupant 
des programmes parus dans JPC), ou définir vous 
même ce que vous désirez voir figé. Le coût sera 


minime: il sera constitué d'une part du prix de 
l'Eprom vierge, et d'autre part d'une petite 
participation aux finances du Club. IL vous sera 
ainsi possible de définir votre propre module. 
Les modalités exactes seront exposées Le mois 
prochain. Réfléchissez dès à présent à ce que 
devrait contenir un module "standard", et faites 
nous part de vos désirs, sinon nous serons 
obligés de choisir nous-même... 


La version dont je dispose possède 32 Ko de Ram 
et 32 Ko d'Eprom. Du fait de La présence de 
l'Eprom, on doit pouvoir ouvrir Le boitier pour 
la remplacer. IL est retenu par un morceau de 
ruban adhésif qu'il ne faut surtout pas enlever: 
il a été, paraît-il, spécialement conçu. Le 
boitier s'ouvre de l'autre coté, par une petite 
encoche. Nous découvrons alors deux petits 
circuits imprimés l'un au dessus de l'autre. Le 
premier porte 4 Ram 64 Kbits Toshiba (8431 
HM6264 LFP-15 T0000330), et un circuit plein de 
pattes que je n'ai pu identifier car Le deuxième 
circuit est posé dessus. Ce dernier contient le 
support pour Ll'Eprom, ainsi qu'un circuit 
d'origine HP dont La référence a été grattée. La 
confiance règne... En outre, deux “Jumpers" sont 
prévus, un pour Les Eproms 32 Ko, et un pour les 
16 Ko et moins. En tous Les cas, La place 
occupée par l'Eprom est fixe à 32 Ko. Seuls, 
deux composants discrets s'opposent à toutes ces 
pattes. 


Je ne m'étendrai pas sur Les avantages que 
procure Un accroissement de mémoire. Pourquoi 
ais-je choisi un panaché de Ram et d'Eprom, et 
non pas simplement 32 Ko de Ram ? Pour de 
multiples raisons. Deux parmi d'autres: 

- Beaucoup de programmes sont très utiles, mais 
hélas encombrants. 

- Le message “Memory Lost" apparaît très 
souvent sur mon HP71. 

Ce sont des raisons qui me sont personnelles, 
mais beaucoup d'entre vous regrettent de ne 
jamais avoir Le programme qu'il faut au moment 
ou il faut. Dans ce cas, l'Eprom me paraît être 
une excellente solution. 


Pour celui qui est impressionné par l'étonnante 





quantité de programmes parus dans JPC, et qui ne 
peut pas donner beaucoup de temps à son HP71 
pour Le programmer, l'Eprom seule me semble Le 
meilleur choix. Enfin, pour Les avides de 
mémoire, Les modules 32, 64 ou 96 Ko sont Là 
pour délester votre compte en banque... 


A l'heure actuelle, La seule voie pour acheter 
ces modules consiste à Les commander directement 
aux Etats-Unis. Deux adresses utiles qu'il est 
bon de connaître: Hand Held Products, Inc. P.0. 
Box 2388 Charlotte, NC 28211 U.S.A. Tél: (704) 
541 1380 et EduCALC Mail Store 27953 Cabot Road 
Laguna Niguel, CA 92677 U.S.A. Tél: (714) 831 
2637. Comptez 20% de taxes et frais de douane 
divers, et un délai d'au moins une ou deux 
semaines. 


IL est question que ces produits soient 
importés en France. Nous vous tiendrons bien sûr 
informés. 


Alors, acheter ou ne pas acheter ? La situation 
est claire: d'une part des modules HP, 4 Ko hors 
de prix, et de l'autre côté, de 32 à 96 Ko de 
Ran, et éventuellement 32 Ko d'Eprom. 
Indépendamment des caractéristiques techniques 
de ces appareils, Le problème est de savoir si 
on veut (peut) avoir de La mémoire. IL n'y a pas 
d'équivalent à L'heure actuelle. C'est mon avis, 
et je le partage, Le HP71 avec 16 Ko est trop 
limité. 


Si l'investissement initial peut paraître 
élevé, je puis vous assurer qu'il en vaut la 


peine. Passer de 16 à 48 Ko, ça vous change un 
HP71... et son heureux propriétaire ! 


A Bientôt, 
Pierre DAVID 


nm nn mm mmmmmmmmmmmm mm mm mm mm mmmmmmmme 
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La lecture des derniers JPC m'a permis de 
constater que certains des articles dont je suis 
l'auteur sont bogués. Désagréable ! J'espère que 
personne ne me Lit ... Que Les quelques 
malheureux qui ne sont pas concernés par cette 
remarque m'excusent et prennent note des 
rectificatifs suivants. La morale de cette 
histoire est qu'il vous suffit de venir aux 
réunions mensuelles pour éviter de pareils 
déboires... En allant du plus récent au plus 
ancien: 


Prog: EDITEUR (BASIC) JPC No 27 SEPT 85 
Remplacer tous Les RESTORE#9,INF par des 
RESTORE#9, 1048575 


Prog: ADR-AFF (FORTH) JPC No 25 JUIN 85 
Ici il s'agit d'un oubli: celui du Listing FORTH 
de La fonction ADR-AFF. Je vous Le Livre donc: 


HEX 
: INTERVALLE C INF SUP VAL ...) 
DUP ROT 1+ C INF VAL VAL SUP+1 ...) 
< C INF VAL b1 ...) 
1F 
1+ < (2:51 
ELSE 
2DROP 
0 
THEN 
L 
: ADR-AFF ( VAL ...) 
1- DUP O 2D ROT INTERVALLE 
IF 
2* 2E104 + 
ELSE 
DUP 2E 5D ROT INTERVALLE 
IF 
2E - 2* 2E200 + 
ELSE 
DUP 5E 83 ROT INTERVALLE 
IF 
SE - 2* 2E300 + 
ELSE 
DROP O0 
THEN 
THEN 
THEN 
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LT] 


Maintenant vous pouvez comparer La vitesse 
d'exécution si cela vous chante. Pour saturer 
l'affichage, il suffit de définir le mot: 

DECIMAL : FULL-AFF 

255 132 O0 DO DUP I ADR-AFF C! LOOP DROP ; 


Prog: XERR (ASS) JPC No 25 JUIN 85 

La fonction utilisateur correspondant au Lex est: 
DEF FNECX)=X=ERRN OR X=ERRN+128+872*(X<1000)) 
Vous remplacerez: IF ERRN=57 OR ERRN=1057... 


par: IF FNE(57)... 


Au plaisir de vous Lire 
Jean-Pierre BONDU (33) 


L'OPTIMISATION 


Optimiser un programme, c'est gagner en volume 
et/ou en vitesse d'exécution. Ce sujet devant 
intérésser bon nombre de membres, j'ai décidé de 
vous faire profiter de mon expérience dans ce 
domaine. IL s'agit soit d'astuces personnelles, 
soit de ‘trucs! piochés dans des documents HP (à 
commencer par Les IDS). Je n'ai pas la 
prétention de détenir Les idées Les plus 
efficaces, et je vous engage vivement à me faire 
part de votre opinion dans un prochain JPC, ou 
lors d'une réunion. En avant !... 


1) A partir de 3 accès à un même numéro de Ligne, 
remplacez celui-là par un label à une lettre. 
Ainsi GOTO 150 deviendra GOTO ‘S' par exemple. 
Gain de 2 octets par adressage. 


2) Cette méthode (label d'une Lettre) peut vous 
permettre de développer un adressage du type GOTO 
CHR$S(64+X) qui remplacera avantageusement un ON X 
GOTO 'A','B!,1C!,... Ici 1<=X<=26. 


3) Les tests sont grands consommateurs de mémoire 
et de temps, aussi doivent-ils retenir toute notre 
attention. Remplacez tous Les: 


IF cond THEN A=1 ELSE A=4 par 
A=4 à IF cond then A=1, ou encore mieux par 
A=(cond)+4*(NOT cond). Le mot ‘cond! est 
l'abréviation de ‘condition! et représente l'objet 
de votre test. 


4) En assembleur, et ceci tant que Les arguments 
sont inférieurs à #FF, remplacez LC(5) #1E par: 
C=0 À et LC(2) #1E 


5) Enfin, pensez à déclarer vos variables et à Les 
dimensionner correctement. Rien ne sert de 
chasser l'octet si par ailleurs vous utilisez 32 
caractères (taille par défaut) pour stocker Le nom 
d'un fichier! 


6) Ce point m'amène à traiter Le cas des fichiers 
DATA. Vous avez constaté que Le 71, dans son 
infinie bonté, nous gratifie de variables aussi 
diverses que INTEGER, SHORT ou REAL. La précision 
étant inversement proportionnelle à l'encombrement 
mémoire. Mais tous ces avantages sont perdus 
lorsque l'on écrit ces variables dans un fichier, 
puisque 8 octets leurs sont réservés, 
indépendement de Leur type. Pour être tout à fait 
clair, cela signifie que chacune est transformée 
en type REAL. Un tableau INTEGER T(8,8) occupe la 
même place que son collègue REAL T(8,8). La 
méthode que j'utilise est basée sur l'emploi 
abusif de POKEs. 

Admettons que vous n'ayez à stocker que des 
valeurs comprises entre 0 et 3500. Trois quartets 
suffiront pour chacune puisque HTD('FFF')=4095. 
Ce qui représente un gain de 16-3=13 quartets par 
valeur. J'avais 1800 valeurs, soit une économie 
de 1800*13/2=11700 octets. Je ramenais ainsi La 
taille du fichier de 14400 à 2700 octets. Voici 
Le procédé. 

Appelons Le fichier TOTO. Créons-le en reprenant 
Les données de mon exemple (2700 oct): 
CREATE DATA TOTO,1,2700. Pour obtenir l'adresse à 
laquelle nous  rangerons La première donnée, 
faisons ADDR$('TOTO')+45. Je rajoute 45 afin de 
sauter La zone dans laquelle résident Les 
informations inhérentes au fichier: date de 
création, type, taille, etc... Notons ADR cette 
adresse. La valeur Noî, que nous noterons Vi, 
sera écrite par un POKE DTHS(ADR),DTH$(V1). Pour 
V2, sachant que nous avons réservé 3 quartets par 
valeur, ce sera POKE DTH$S(ADR+3),DTH$(V2). Pour 
la Nième valeur, POKE DTHS(ADR+(n-1)*3),DTH$(Vn). 
La lecture se fait aussi simplement: 


oo 


Vn=HTD(PEEK$S(DTH$S(ADR+(n-13*3),3)). IL est très Jean-Pierre BONDU (P.P.C. #33,S1G #4) 
simple alors de se fabriquer Les routines 
suivantes: 


nn mm mm mm mmmmmmmm mm nm mm mm mm mm mm mme 


10 SUB WRITE(N,X) 
20 A=HTD(ADDRS(!TOTO!))+45 
30 POKE DTH$(A+(n-1)*3),DTHSCX) 


40 END SUB Nicodème Philippe (PPCP237) 05/08/85 
B124 Résidence du Chemin Vert 
60 SUB READ(n,X) 59131 Rousies 


70 A=HTD(ADDRS( !TOTO' ))+45 
80 X=HTD(PEEKS(DTHS(A+(n-1)*3),3)) 


90 END SUB 
Bonjour, 
Bien sûr, Le temps d'accès en souffre. Tout est 
question de choix ! Une dernière remarque: lorsque 
vous créez un fichier il est initialement rempli Heureux possesseur d'un HP71, j'ai 
d'octets ayant pour valeur 255. Si vous désirez entrepris l'apprentissage du Forth. Je recherche 
travailler sur un espace ‘vierge', il vous faudra des informations sur Le fonctionnement de 
POKEr une série de zéros. l'éditeur du module Forth/Ass. Question 
principale, comment sauvegarder sur cassette Le 
7) Retour à l'assembleur. Je vous suggère de résultat d'un week-end de travail? 
comparer Les vitesses d'éxécution des 2 routines Pouvez vous répondre à ma question, ou 
suivantes: m'indiquer si vous avez déjà publié des articles 
1 | 11 sur Le sujet (et comment se Les procurer). Je 
SENS TERRES Re Re mes RE ss nee es ssesese suis également intéressé par toute référence 
P= 0 | = 0 d'ouvrage consacré au HP71 (en français de 
LCCS) #FFFFF | LCCS5) #FFFFF préférence). 
bcl C=C-1 A Ibcl C=C-1 A 
?C#0 A | Avec tous mes remerciements. 
GOYES bcl | GONC bcl 
Vous constaterez que La première nécéssite 41 Philippe NICODEME. 
sec. pour tourner, La deuxième 28. Significatif 
non ? 
Pour conclure, car je fatigue, connaissez-vous 
l'intérèt de RENUMBER 1,1,1,1 ? Ces paramètres 
d'apparence Loufoque permettent de ‘compiler! Les Cher ami, 
adressages. Sans modifier La numérotation de 
votre programme. Rentrez Le prog suivant: Je te comprends quand tu dis “Heureux 
10 GOTO 20 possesseur", car effectivement, Le HP71 est une 
20 GOTO 30 bien merveilleuse machine. Au Bureau, nous te 
30 GOTO 40 félicitons d'avoir entrepris l'apprentissage du 
Faites RENUMBER 1,1,1,1. Le message "ERR:Stmt Not Forth (c'est vraiment un chouette langage). Si 
Found! s'affiche. Tapez FETCH, vous êtes tu as quelques difficultés de programmation, je 
positionné sur La ligne 30. Pratique après avoir te conseille un Livre qui est très bien fait 
bidouillé un prog, c'est une vérification à pas pour tout débutant en Forth. C'est: “Programmer 
cher. Pourquoi s'en priver ? Le Forth" de Robert Van Loo, collection 
Au plaisir de vous Lire... Marabout. En ce qui concerne ta question, je 


pense que La meilleure façon de sauvegarder tes 
routines, est, soit de sauver La Forthram sur 
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cassette, soit de mettre tes routines dans un 
fichier texte, et de sauver ce fichier sur 
cassette. N'oublie pas que La fonction LOADF te 
permet par la suite de Le recharger dans le 
fichier forthram. Pour ta seconde question, il 
n'existe pas d'autre référence d'ouvrage 
traitant du HP71 que Le JPC. Que ceux qui savent 
en parlent ! 


Philippe. 
Reno Bonzon 
BP 119 
97230 St Laurent 
GUYANNE. 
Bonjour, 


J'habite La Guyanne, et possède une HP41CV. 
J'ai deux questions à vous poser: 

1) Qu'est-ce qu'une HP41CV "accélérée"? 

2) Les piles de mon HP41CV se sont usées sans 
qu'apparaisse Le signal BAT. J'ai donc perdu 
tous mes programmes. YŸ a-t-il une explication? 


Merci de me répondre, 


Reno. 


Cher ami, 


Une HP41 accélérée, est une calculatrice ayant 
subi une petite modification Lui permettant de 
faire tourner Les programmes plus vite. Si tu 
passes en France, nous pouvons nous charger de 
faire cette transformation. Sinon, envoie nous 
une reproduction ou une photo du circuit logique 
de ta machine, et nous t'indiquerons La façon de 
procéder. Pour ta deuxième question, je ne peux 
répondre dans l'immédiat, mais Le premier test 
que tu peux faire est d'essayer Le programe ci 
dessous qui te permet d'allumer l'indicateur BAT 
et donc de vérifier s'il n'est pas défaillant. 


O1*LBL "IF" 


02 ABS |17 Xe d 

03 24 |18 FC?C IND 0 
04 + |19 SF IND 0 
05 STO M [20 x<> d 

06 8 [21 STO M 

07 ST/ M [22 RDN 

08 MOD 123 12 

09 RCL d 126 - 

10 X<> M [25 SCI IND X 
11 INT [26 ARCL x 

12 SCI IND X [27 X<> 0 

13 ARCL X [28 STO d 

14 X<>Y [29 RDN 

15 X<> 0 [30 CLA 

16 X<> N 131 END 


Ce programme te permet d'inverser n'importe 
quel indicateur binaire (même ceux dont La 
valeur est supérieure à 29). Et, entre autre le 
drapeau 49 qui allume l'indicateur BAT. 

Le mode d'emploi est très simple: Placer en X 
le numéro du drapeau à inverser (ex: 49), puis 
faire XEQ "IF", À l'arrêt, Le voyant BAT doit 
être allumé. 


Bon courage pour tout, 


Philippe. 


nnnnnmmnmmmmmmm nm mmm mm mm mm mmmmmmmnmmmmnmmsmnnnnse 


Alain HERREMAN 

2 rue du parc Montsouris 75014 PARIS 

Vends  HP-41CV + Module MATH à 1000FF, une 
imprimante  82143A à 1500FF, un port-éxtender 
S00FF, un HP-IL 600FF. Tél: 589-09-41. 


Michel MARTINET 

119 rue de Bagneux 91120 MONTROUGE 

Vends HP75C + 8 ko RAM + Visicalc + text 
formatter + nombreux logiciels. 6000 FF. 

Tél: (1) 43 36 12 05 (Département Informatique) 
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TRANSFERT EN X-MEMORY 


Nous allons voir  eujourd'hui 3 petits 
programmes üe transfert de fichiers entre la 
mémoire étendue de La HP41 et l'unité de cassette. 


Programme MWRTXM"!: il vous permet de stocker 
toute La mémoire étendue dans une cassette. Le 
mode d'emploi est très simple. Mettre Le nom du 
fichier en ALPHA puis faire XEQ "WRTXM". 


Programme MREADXM'': opération inverse du 
programme ‘“WRTXM'!. Permet de stocker un fichier 
‘XMEM' contenu dans une cassette dans La mémoire 
étendue du HP41. Pour son utilisation, écrire le 
nom du fichier en ALPHA, puis faire XEQ "READXM". 


Programme "APPXM!!: Troisième volet de La grande 
saga de transfert. Ce programme vous permet de 
faire un 'APPEND' en XMEM. Stocker un premier 
fichier XMEM dans La mémoire étendue du HP41, 
puis par un XEQ "APPXM"!, vous pouvez stocker un 
deuxième fichier XMEM. 


O1*LBL "WRTXM! 

32 PSIZE 598 EMDIR 
CLD - CREATE , SEEKR 
"u CLFL RON ENTER” 
ENTER* “ji RAI 
256 / XTOA X<> L MOD 
XTOA RCL N X<> c 

RCL M STO 00 X<>y 
STO c R° SAVEX "1, 
SEEKPTA FLSIZE 32 / 
INT SIGN ST+ L ,031 


41*LBL 00 
DSE L FS? 30 GTO 01 
GETRX WRTRX GTO 00 


48*LBL 01 

FLSIZE 32 MOD X=0? 
GTO 01 1 - 1 E3 / 
GETRX WRTRX 

60*LBL 01 

“i " RCLN 

X<> c RCL M STO 00 
X<>Y STO c CLA CLST 


END 


L11= 241 29 

L16= 250 1 105 11 224 1923220000 
L31= 241 29 

Lé1= 252 1 105 11 224 192322000002 


O1*LBL "READXM'" 
34 PSIZE CLX SEEKR 
READRX SEEKR "* 1 
RCL M X<> ç , STO 00 
X<>Y STO c RCL 00 "" 
1 + CRFLD SF 00 CLA 
RCL 00 32 / 1 + INT 
STO N 

29*LBL 00 

DSE N FS? 30 GTO 01 
1,032 READRX FC?C 00 
GTO 02 1,033 SAVERX 


39*LBL 03 

1 ST+ M GTO 00 
43*LBL 02 
RCLM32*1- 

SEEKPT GETX X<>Y 
SEEKPT X<>Y ,033 
SAVERX RDN RON SEEKPT 
R° SAVEX GTO 03 


62*LBL 01 

RCL 00 32 MOD X=0? 
GTO 02 RCL M32* 1 

- SEEKPT STO O GETX 
X<>Y SEEKPT X<>Y RDN 
RON 1 E3 / 1 + 

READRX ,999 - SAVERX 
RCL O SEEKPT R° SAVEX 


93*LBL 02 

RCL 00 SEEKPT 

e " RCL M SAVEX 
"i  MRCLN 

X<> c RCL M STO 00 
X<>Y STO c CLA CLST 
END 


LO8= 243 4 O 192 
L16= 241 29 
L96= 7 espaces 





L99= 252 1 105 11 224 192 32000002 


O1*LBL "APPXM" 
35 PSIZE 600 EMDIR 
CLD - STO 34 CLX 
SEEKR READRX SEEKR 
RCL 00 "|" 1 + CRFLD 
SF 00 CLA RCL 00 32 
/ 1 + INT STO N 


27*LBL 00 
DSE \ FS? 30 GTO 01 
1,032 READRX FC?C 00 
GTO 02 1,033 SAVERX 


37*LBL 03 

1 ST+ M GTO 00 
41*LBL 02 
RCLM32*1- 

SEEKPT GETX X<>Y 
SEEKPT X<>Y ,033 
SAVERX RDN RDN SEEKPT 
R” SAVEX GTO 03 


6é0*LBL 01 

RCL 00 32 MOD X=0? 
GTO 02 RCL M 32 * 1 

- SEEKPT STO O GETX 
X<>Y SEEKPT X<>Y RDN 
RON 1 E3 / 1 + 
READRX ,999 - SAVERX 
RCL O SEEKPT R* SAVEX 


91*LB8L 02 

RCL 00 SEEKPT 

» " RCL M SAVEX 
Mi "M RCL 34 

256 / XTOA RCL 34 
LASTX MOD XTOA RCL N 
X<> c RCL M STO 00 
X<>Y X<> © Mt FLSIZE 
DSE X SEEKPT ! *##*xxn 
X<> M SAVEX X<>Y 

X<> c X<>Y STO 00 
X<>Y STO c wie PURFL 
CLST END 


LO14= 241 13 
LO94= 7 espaces 
LO97= 250 1 105 11 224 1923220000 


——————————….——— —————…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…—…———.—.——.——_. —_—————@@ûû0 ro 


L114= 241 29 
L116= 247 32000002 
L125= 241 13 


Frédéric POUPON (P.P.C. #35) 


nn mmmnmmmnmmmmmmmmmmmmmmmmmmmmm mm 


NOUVEAU MODULE HP41/HP12-HP15-HP16 


Vous trouverez ci-dessous un article, que j'ai 
reçu de HP Grenoble, puis traduit, vous 
présentant La nouvelle ROM pour HP41. Sa sortie 
est prévue pour novembre 1985. 


BE AN EXPERT: HP41 ADVANTAGE QUESTIONS AND ANSWERS 
Q: WHAT IS THE HP-41 ADVANTAGE? 


A: The HP-41 ADVANTAGE is a powerful new 12k 
software module for the HP-41. It includes the 
most comprehensive and popular set of advanced 
engineering, mathematical and financial 
functions ever written for the HP-41. 


Q:WHAT TYPES OF PROGRAMS ARE INCLUDED IN THE 
HP-41 ADVANTAGE? 


A: The module contains a comprehensive function 
set that includes 


* Comprehensive advanced matrix math, 

* Real and complex matrix operations, 
Simultaneous equations on real and 
complex numbers, 

Solve (roots of f(x)=0) (Like the HP15C), 
Integrate (like the HP15C), 

Three dimensional vector operations, 
Complex number operations, 

Number base conversions and  boolean 
logic (Like the HP16C), 

* Curve fitting, 


*+ 


# # # # * 
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* Roots end evaluation of  polynomial 
equations, 

* Differential equations, 

Coordinate transformations, 

Time value of money (like the HP12C). 


* 


Q: WHO SHOULD HAVE THE HP-41 ADVANTAGE? 


A: Both students and professionals will benefit 
from ouning an HP-41 ADVANTAGE. The programs for 
this module were selected to provide a useful 
function set for the solution of advanced 
problems in engineering and science. 


For technical students, the HP-41  ADVANTAGE 
provides a set of functions that will be useful 
in coursework from linear algebra to statics and 
dynamics and electronics. 


The HP-41 ADVANTAGE Will help professional 
engineers and scientists meet challenges from 
the design and analysis of electrical circuits 
and complex mechanism to the building of roads. 


Q: HOW IS THE HP-41 ADVANTAGE DIFFERENT FROM 
OTHER HP-41 SOFTWARE? 


A: First, the HP-41 ADVANTAGE has considerably 
more capacity and, therefore, is more powerful 
than other modules. A full 12k-bytes of ROM is 
used to contain the most complete and powerful 
function set ever designed for HP-41. 


Second, many important programs in the module 
have been written in machine-codes. This means 
that the programs will run faster and be more 
precise than previous HP-41 software. 


Third, the "user-interface" îs friendlier, so 
the HP-41 ADVANTAGE is easier to use. 


Q: WHAT IS DIFFERENT ABOUT THE HP-41!s USER 
INTERFACE? 


A: Several new functions found in the HP-41 
ADVANTAGE are combined into programs that are 
more  sophisticated and easier to use than 


previous HP-41 software. Prompts and menus Lead 
the user through the possible choices in data 
input and output. 


Almost all programs redefine keys in the top 
rows of the calculator to perform, with a single 
keystroke, operations defined by the program. 
The "J" Key is used to recall a menu or prompt 
to the display. 


The use of menus allows you to enter data 
quickly, without the need for overlays or 
reference to the owner's manual. Cues provided 
by the menus clearly indicate how the keys are 
used. 


Q: CAN THE PROGRAMS IN THE HP-41 ADVANTAGE BE 
USED AS PART OF OTHER PROGRAMS? 


A: Yes! Most programs, and many subroutines, 
may be "called!" or included as part of 
user-created programs. Specific instructions on 
how using the subroutines are included at the 
end of the owner's manual. 


Q: WHAT ARE THE MATRIX CAPABILITIES OF THE 
HP-41 ADVANTAGE? 


A: The matrix programs in this pac are the most 
powerful matrix programs ever offered on an HP 
calculator. They provide an easy method of 
creating, storing and retrieving real or complex 
matrices using prompts and menus. Matrices may 
contain numeric or alpha data. Operations such 
as inversion, transposition, determinant and 
solving of  simultaneous equations may be 
accomplished easily, even in your own programs. 
In addition to the major operations provided by 
the matrix program, individual elements may be 
manipulated in and between matrices, for 
example, in moving,  swapping,  summing and 
finding the norm, maxima and minima. Over 45 
functions are included for maximum flexibility 
in matrix operations. 


Q: CAN A PRINTER BE USED WITH THE HP-41 
ADVANTAGE? 





A: 1f you have a printer plugged into the HP-41 
when the module is used, inputs and results will 
be printed automatically. 


SOYEZ UN EXPERT: LE HP-41 ADVANTAGE, QUESTIONS 
ET REPONSES. 
Q: QU'EST CE QUE LE HP-41 ADVANTAGE? 


R: Le HP-41 ADVANTAGE est un nouveau et 
puissant module de 12k de Logiciel pour HP-41. 
IL comprend Le jeu de fonctions pour HP-41 le 
plus comprehensible et Le plus connu en matière 
d'ingénieurie, de mathématiques et de finances. 


Q: QUEL TYPES DE PROGRAMMES SONT INCLUS DANS LE 
HP-41 ADVANTAGE? 


R: Le module comprend Le jeu de fonctions 
suivant. 


* Mathématique matricielle, 

Opérations sur matrices réelles et 
complexes 

Résolution de systèmes réels et complexes 
Zero de fonctions (Comme sur HP-15C) 
Fonction d'integration (comme sur HP-15C), 
Opérations sur Les vecteurs en trois 
dimensions, 

* Opérations sur Les nombres complexes, 
Changement de base et logique boléenne 
(comme sur HP-16C), 

Ajustement de courbes, 

Racines et évaluation d'un polynôme, 
Résolution des équations différentielles, 
Transformations de coordonnées. 

Calcul financier (comme sur HP-12C). 


*+ 


+ * # * * 


# + + # * 


Q: QUI DOIT POSSEDER LA HP-41 ADVANTAGE? 


R: Tous Les étudiants et Les professionnels 
tireront bénéfice de Leur HP-41 ADVANTAGE. Les 
programmes de ce module ont été sélectionnés 
parmi les plus utilisée dans Le domaine de 
ingénieurie et des sciences. 


Pour Les étudiant des sections technique, le 


——_——_————————<— 


HP-41  ADVANTAGE donne un jeu de fonctions qui 
sera très utile en algèbre linéaire, 
statistiques, dynamique et électronique. 

Le  HP-41 ADVANTAGE aidera l'ingénieur et le 
scientifique. 


Q: EN QUOI LE HP-41 ADVANTAGE EST IL DIFFERENT 
D'UN AUTRE LOGICIEL POUR HP-41? 


R: Premièrement, Le HP-41 ADVANTAGE a 
considérablement plus de capacité, et donc, est 
plus puissant qu'un autre module. Une pleine ROM 
de ‘12k-octets est utilisée pour contenir Le jeu 
le plus complet et Le plus puissant de fonctions 
jamais écris pour La HP-41. 


Deuxièmement, La plupart des programmes ont été 
écrit en codes-machine. Les programmes tournent 
donc plus vite et sont plus précis que Le 
Logiciel normalement prévu pour La HP-41. 
troisièmement, l'interface d'utilisation a un 
comportement plus amical, aussi Le HP-41 
ADVANTAGE est facile d'utilisation 


Q: QU'ELLE EST LA DIFFERENCE AVEC UNE AUTRE 
INTERFACE UTILISATEUR? 


R: Plusieurs nouvelles fonctions dans Le HP-41 
ADVANTAGE combinées aux programmes, Les rendent 
plus complets et plus faciles d'utilisation que 
le Logiciel habituel pour HP-41. Les questions 
et menus aident L'utilisateur à travers 
plusieurs choix possibles de données d'entrée et 
de sortie. 


Presque tous Les programmes ont une 
redéfinition des touches de La rangée du haut du 
calculateur pour Les rendre plus performants, 
avec une simple touche, Les opérations définies 
par Le programme. La touche "J" est utilisée 
pour rappeler un menu ou prompt à l'affichage. 


L'utilisation des menus vous permet d'entrer 
Les données rapidement, sans le recours 
d'overlays ou de référence au manuel 
d'utilisation. Il est indiqué clairement dans Le 
menu comment Les touches sont utilisées. 
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Q: LES PROGRAMMES DU HP-41 ADVANTAGES, PEUVENT 
ILS ETRE UTILISES COMME PARTIE D'AUTRE PROGRAMMES? 


R: Oui! La plupart des programmes, et des 
routines, peuvent être “appelées! ou inclus 
comme partie d'un programme utilisateur. Les 
spécifications comment utiliser Les sous 
routines, sont incluses à La fin du manuel 
d'utilisation. 


Q: QU'ELLES SONT LES POSSIBILITES MATRICIELLES 
DE LA HP-41 ADVANTAGE? 


R: Les programmes matriciels dans ce pac, sont 
les plus puissants jamais offerts sur un 
calculateur HP. Ils autorisent une méthode 
simple de création, stockage et rappel de 
matrices complexes utilisant Les demandes et Les 
menus. Les matrices peuvent contenir des données 
numériques ou alphanumériques. Les opérations 
comme inversion, transposition, déterminant et 
résolution d'équations simultanées peuvent être 
résolues aisement. En plus, dans La majorité des 
opérations des programmes sur Les matrices, 
chaque éléments peut être manipulés dans et 
entre matrices. Par exemple, déplacement, 
échange, somme et trouver La valeur, maxima et 
minima. Plus de 45 fonctions sont incluses pour 
un maximum de flexibilité dans les opérations 
matricielles. 


Q: PEUT ON UTILISER UNE IMPRIMANTE AVEC LE 
HP-41 ADVANTAGE? 


R: Si vous avez une imprimante branchée à votre 
HP-41 pendant l'utilisation du module, les 


entrées et Les résultats peuvent être imprimés 
automat iquement . 


Philippe 
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SERGE VAUDENAY 
ALAIN HERREMAN 
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LAURENT ISTRIA 





REMORDS 

CHOC EN RETOUR 

TEST DE KOLMOGOROV ET DE SMIRNOV 
TRANSLATER PROGRAM 

PASSWORD |! 

ECREMEZ VOS PROGRAMMES ! 

EQUATE 

DEVELOPPEMENTS LIMITES EN R.P.N. 
HP71: TELLEMENT COMPLEXE ! 


UN BRIDGE CE SOIR ? 
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REMORDS (suite) 


Veuillez excuser avoir fait phothe 
horthogrhaffex article précédant stop bonjour 
maman stop 


Serge Vaudenay. 


CHOC EN RETOUR ET ALLER DANS LE SIG 


1. Tout d'abord merci aux lecteurs pour Leurs 
remarques sur les programmes de Statistiques du 
nt27 JPC (en particulier dans Le pgm KI2TEST 
ligne 1770 Lire Q et non Q9). 

2. Je serai(s) interessé par un LEX donnant les 
ordres suivants: SWAP(N,M) et  SWAP$S(AS,B$). 
Existent-ils ? 

+3 Et également par Les  PRIMITIVES  forth 
suivantes: RND (le truc aléatoire) et RANDOMIZE 
surtout le 1er), car le passage forth --> basic 
--> forth prend trop de temps ! 

Je signale que TIME existe en PRIMITIVE forth. 

4. Et à propos quelle est La période de RND ? 
(Je crois qu'elle est supérieure à 2"21 ?) 

5. Enfin, Lest but not the least, Les méthodes 
de triage (Bulle, Shell et (dite) Rapide), sont 
vraiment trop lentes en basic. Est ce qu' un 
fameux SIGouilLEXeur pourrait Les LEXiser. La 
syntaxe serait: TRI(X()) et TRIS(XS()) (les 2 
sont importants). Ici X() (resp. X$()) est un 
vecteur de données (resp. alphanumériques), et 
TRICX()) (resp. TRIS(XS())) serait Le vecteur 
trié dans l' ordre croissant. C'est la méthode 
SHELL qu'il faut LEXiser. Mais probablement que 
je rêve... 


Bon SIGouilLEXage, 
Michel Weil 
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TEST de KOLMOGOROV et de SMIRNOV 


s 


Quand on veut comparer une série expérimentale 
avec une Loi théorique on utilise souvent Le 
test du KI2. Lorsque La fonction de répartition 
de La loi théorique est continue, on montre que 
le test de KOLMOGOROV est plus stable que celui 
du KI2 (ceci parce que Le test de KOLMOGOROV 
compare des fréquences cumulées, et non des 
fréquences individuelles, ce qui fait que le 
KOLMOGOROV-test dépend moins des résultats 
ponctuels). Bien entendu, plus Le nombre 
d'observations est grand, mieux c'est. 

Par exemple lorsque Le temps de réponse d'un 
circuit électrique donne Les résultats suivants 
(en nanosecondes): 21 20 18 15 20 19 20 16 21 14 
17 18 18 16 16 17 17 20 20 17 23 16, on désire 
savoir, ou non, si ces résultats sont dispersés 
suivant une Loi normale N(m,e) (donc 
KOLMOGOROV-test). Alors il suffit de répondre au 
menu du programme " KOLMSMIR"! (appuyez sur les 
touches demandées): 


SMIRMOV(2)KOLMOGROV(1)? ------- > 1 

Nres de déçimales? 3 --------- > N + ENDLINE 
Clavier/Fichier(C/F)? -------- > C(lavier) 
Nom de La Loi expé(rimentale)?->CIRCUIT 

test de normalité(O/N)? ------ > O(ui) 


(le programme demande si L'on veut comparer à 
une fonction de répartition d'une loi normale, 
sinon appuyez sur N(on)). 

m , é-t spéciaux? ------------ > N(on) 

(si vous voulez introduire d'autres valeurs 
pour La moyenne et l'écart-type, appuyez sur 
O(ui), et les introduire Lorsque Le programme le 


demandera). 
Nombres de données? -----------. > 22 
DÉRIIR EE En eme ree > ttes Les données 


Ce vecteur ligne s'imprime alors, et sur L'HP71 
s'affiche La demande: 
Correction (O/N)? ------------- > 
SV rresnencesesiiesee > O(ui) 
alors Le programme fait une pause et demande de 
changer Z(1,2). Veuillez taper TOUTES Les 


modifications nécessaires:  "Z(1,i)=..", et 
relancez Le programme par l'ordre: "f CONT". Le 
reste suit sont cours et La réponse finale, içi, 
est: 

HO est accepté à 5% avec N(m18.136;:e=2.274) 
Vérification du programme: il est bien tapé si 
à l'ordre: "FOR 1=z1 TO M &@ D(I): @ NEXT 1" 
apparait La série: .034 .038 .099 .146 .115 .057 . 
57 .059 .029 


Le test de SMIRNOV compare, lui, 2 séries 
expérimentales, par une syntaxe encore plus 
simple: au Lieu d'entrer une série de val. 
expérimentale, il faut en entrer deux ! 


Mathématiques du test de  KOLMOGOROV: on 
calcule, en gros, l'écart: 
Dn = sup en x de ABS(Fn(x)-F(x)) 

où Fest La fonction de répartition continue 
théorique (içi une Loi normale) et Fn est la 
fonction de répartition empirique des données: 
X1,..,Xn. Quand n-->infini La fonction de 
répartition de SQR(n)*Dn tend vers quelque chose 
de tabulé. 
Si Dnest "trop grand" on rejette L'hypothèse 
de comparaison HO. 
Pour Le test de SMIRNOV: Lorsque (Fm) et (Gn) 
sont Les fonctions de répartitions empiriques 
des 2 séries expérimentales, on calcule: 

Dm,n = sup en z de ABS(Fm(z)-Gn(z)) 
et, si l'écart observé Dm,n est "trop grand" on 
rejette l'hypothese de comparaison HO. 


REMARQUES : 

*1. Dans ce programme un vecteur X a Les trois 
représentations suivantes: X() X(1,) et X(,1). 
Ceci parce ue X(1,) est plus utile pour L'ordre 
MAT PRINT X, X(,1) est mieux pour supprimer un 
un des éléments du vecteur (le sous-programme 
LIGNMINU est plus rapide (et prend moins de 
place) qu'un sous-programme de suppression de 
colonnes). 

*2. Le sous-programme LIGNMINU, précité, est un 
programme de suppression de Lignes dans une 
matrice. 

*3. Le sous-programme OUINON est un programme 
de réponse aux trois questions: (O/N)? (F/C)? 
(2/1)? 

*4. Un FICHIER de données n'est içi, qu'une 
simple suite de nombres. 





*5. Le module de MATH est utilisé, mais n'est 
vraiment, vraiment pas indispensable (cf. *1.). 
*6. Si vous voulez une copie du programme, 
envoyez une CASSETTE. 

*7. Avec Les remarques Le programme KOLMSMIR 
fait 4853 octets, et 3429 sans celles-çi. 


Michel Weil 
2a,rue des jardins 
25000 BESANÇON 


TRANSLATER PROGRAM 


Cher emis de PPC, j'ai Le plaisir de vous 
annoncer La venue au monde du programme 
HP41T071. Comme son nom l'indique, ce programme 
traduit un programme de 41 sur un 71. En fait, 
ce programme décode une chaîne de caractères 
représentant un programme, et range Le tout dans 
un fichier TEXT que l'on peut ensuite utiliser. 
L'avantage du programme n'est pas dans son 
utilisation mais plutôt dans son étude, en 
effet, on peut y découvrir de quelle manière 
sont codés les programmes dans La mémoire de La 
41. 


Que fait exactement ce programme ? 

Tout d'abord, je vous dois quelques 
explications au sujet de La fonction OUTP du 
module EXTENDED 10; cette fonction est un peut 
spéciale et on peut se demander a quoi elle peut 
bien servir. Comme on peut Le Lire dans le 
manuel (en anglais of course) de grand-mère HP, 
une utilisation possible de OUTP est l'envoi 
d'un programme d'une 41 à une autre via deux 
interfaces du même type, par exemple deux modems 
acoustiques HP82198A qui à ma connaissance ne 
sont pas distribués en France, ou deux 
interfaces HPIL/RS232 HP82164A ou encore deux 
interfaces HPIL/HPIB HP82169A etc... Une autre 
utilisation possible est l'envoi d'un programme 
41 à un ordinateur via une de ces interfaces 
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pour effectuer un stockage sur disque. On pourra 
écrire alors sur cet ordinateur un programme 
équivalent à HP411071. Dans Le cas de deux 41, 
il faudra axecuter l'ordre OUTP sur La 41 
émettrice et l'ordre frère INP sur l'autre 41. 


Le particularité de La fonction OUTP est La 
suivante: cet ordre envoie sur La boucle une 
séquence  d'octets de données représentant Le 
programme mais en compliquant Les choses. Tout 
d'abord La 41 place devant La chaîne quatre 
octets qui contiennent La longueur du programme, 
ensuite elle ajoute en queue de chaîne deux 
autres octets représentant La somme de contrôle 
des autres octets (en anglais checksum) soit La 
somme modulo 256 de ces fameux octets (qu'est 
qu'y a comme octets !). Enfin, pour chaque 
octets sont envoyés deux caractères (0 à 9 ou A 
à F) qui forment en hexadécimal Le code ASCII du 
caractère. Par exemple, l'ordre COS de La 41 ne 
sera pas envoyé sous forme d'un !Z! mais sera 
représenté par La séquence des deux caractères 
15! et 'A'. Pourquoi? , tout simplement pour 
éviter l'envoi indésiré de séquences 
d'échappement aux appareils HPIL placés sur la 
boucle. 


d'ai éssayé de rendre ce programe le plus 
lisible possible. IL est composé de 6 parties: 
ie programme principal qui va de La Ligne 10 à 
la Ligne 160 se charge de préparer La boucle en 
faisant CONTROL OFF car La 41 est 
obligatoirement contrôleur sur une boucle, de 
dimensionner les variables et de recevoir La 
chaîne venant de La 41. IL appelle ensuite le 
SUB CHECKSUM en lui passant La dite chaîne, le 
cheksum reçu et il récupère R=1 ou R=0 suivant 
que ce checksum est bon ou mauvais. Ensuite, Le 
programme principal appelle Le sous-programme 
TEXT41 qui fait tout Le boulot. 


Voyons maintenant ce que fait ce SUB TEXT41 
placé lignes 210 à 770: 

IL execute La boucle DESAS autant de fois qu'il 
Y a d'instructions à décoder. Pour chaque 
instruction, il regarde si elle est d'un type 
spécial par exemple Un  LBL, une chaîne 
alphanumérique, un nombre, un XROM etc...(lignes 
260 à 300). Sinon, il appelle Le SUB DESAS41 qui 
va Lire dans Le fichier FONCTS41 La fonction 
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désirées. Pour chaque type de fonction spéciale 
il y a un label dans ce SUB. Par exemple, XEQA 
pour Les XEQ alphanumériques. Toute boucle se 
termine par un passage par “PRINT! qui se charge 
d'affecter un numéro à La Ligne en cours 
d'étude, de La mettre dans Le fichier TEXT et de 
l'afficher. 


TEXT4#1 peut utiliser Les SUB ALPHA, DESAS41 et 
SXROM. Pour  DESAS, on envoie La valeur 
hexadécimale de La fonction que l'on cherche, et 
l'on récupére cette fonction sous forme d'une 
chaîne de caractères. Vous pouvez par exemple 
essayez CALL DESAS41('5A!,AS$) et vous 
retrouverez A$=!"COS!". Pour ALPHA on envoie La 
chaîne P$ que l'on est en train de traiter et 
l'on récupère cette chaîne moins ce dont Le SUB 
s'est servi pour créer La chaîne qu'il renvoie. 
Pour être plus clair prenons un exemple; si dans 
un programme 41 on a La chaîne "POPOL", celle-ci 
sera codée F5.50.4F.50.4F.4C , Le F indique que 
ce qui suit est du texte, Le 5 indique Le nombre 
de caractères qui composent La chaîne et les 
autres caractères représentent La chaîne. Lors 
de l'éxécution du programme HP411071 le test 
ligne 260 dirigera La chaîne P$ vers ‘TEXT! 
(ligne 420) qui en appelant Le SUB ALPHA 
retrouvera  CS$="POPOL" et P$ auquel on aura 
retiré M"FSSO4F504F4C". Enfin, Le SUB SXROM se 
contente de traduire s'il Le peut (c'est a dire 
si Le 71 a en mémoire le fichier correspondant 
eu module dont on veut traduire une des 
fonctions) une chaîne de La forme "“XROM 25,26" 
en une autre chaîne ( ici se serait "PASN"). 


Voilà, j'espère avoir étè assez clair et je 
vous conseille de bien étudier ce programme ! 


Voyons voir maintenant comment l'utiliser : 


Après avoir lancer Le programme par un RUN il 
faut donner comme réponse à la question “Name ? : 
le nom du fichier qui va recevoir Le programme 
41 traduit. Ensuite on à l'affichage "Ready", Le 
programme indique qu'il est prêt, il attend 
alors La pression d'une touche pour continuer 
(Ligne 80). Si L'on appuie sur une touche 
apparait alors le message "Reading Loop ...", [Le 
71 attend alors La chaîne qui doit lui parvenir. 
Reste alors à envoyer Le programme désiré à 


partir de La 41 en exécutant Le programme SENDP. 


01 LBL "SENDP" 
02 OUTP 

03 10 

04 OUTXB 

05 END 


IL faudra préalablement avoir fait GTO .. (très 
important) et placer dans alpha Le nom du 
programme à envoyer. Ensuite, Le programme fait 
le reste et affiche, au fur et à mesure de sa 
progression, Les Lignes traduites. Lorsqu'il a 
fini, il BEEP pour vous l'indiquer et affiche 
pour vous Le rappeler Le nom du fichier créer. 
On voit bien que l'utilisation du programme est 
fort simple et c'est tant mieux. 


Quelques remarques maintenant: 

Pour fonctionner correctement Le programme 
necessite d'avoir dans Le 71 au minimum Le 
fichier FONCTS41. De plus, si vous voulez 
traduire des fonctions de modules d'extension en 
clair (c'est à dire Les avoir sous La forme 
exacte et nom sous La forme XROM XX,YY) il vous 
faudra avoir en mémoire Le fichier TEXT 
correspondant c'est-à-dire XFUNCT pour Le module 
X-FUNCTIONS, TIME41 pour Le module TIME, HPIL141 
et HPIL241 pour L'HPIL etc... Ensuite, il faut 
sfgnaler que Le programme met automatiquement en 
tête du fichier TEXT l'heure et La date si le 
fichier TIME41 est présent (comme Le fait La 41 
si elle a Le module TIME). Enfin, pour gagner du 
temps on pourra supprimer La Ligne 180 et Le SUB 
CKECKSUM qui ne sont pas indispensables. De plus 
on pourra modifier La Ligne 230 M$="... si l'on 
préfere avoir des STO M, RCL Q etc... à la place 
de STO [, RCL ” . 


Pour finir, je dirais que L'on peut remplacer 
Le programme HP411071 par Le programme suivant 
qui Lit ce qu'envoie une 41 en mode MANIO après 
l'execution d'un PRP. 


10 INPUT “Name : ?";:B$ à CREATE TEXT B$ 
20 ASSIGN #1 TO B$ à CONTROL OFF 

30 FOR 1=1 TO INF 

40 ENTER :LOOP ;A$ à PRINT #1;A$ à DISP I 
50 NEXT 1 


oo 


Vous aller me dire alors que ce programme est 
inutile, pour l'instant, son seul avantage est 
dans son étude mais peut-être que plus tard ... 


Au niveau rapidité ce n'est pas trop mal : il a 
fallu 1 min et 55 sec à HP411071 pour traduire un 
programme de 310 octets contre environ 30 sec 
pour son équivalent cité plus haut. 


Voilà, j'espère vous avoir interressé par ce 
programme et vous proposer bientôt un programme 
qui fera le contraire à savoir convertir un 
fichier TEXT en une chaîne compréhensible par 
INP. Pour tout renseignement ou remarque écrire 
au club ou me téléphoner au 39.68.33.93 Le soir, 
le Jeudi aprés-midi ou Le week-end. 


Jacques BAUDIER PPC #192 


A PROPOS DE PASSWORD 


On apprend dans Le volume I des 1.D.S. que Le mot 
de passe du 71 est stocké à partir de 2F7B2 et 
sur 16 nibbles (cf. page 3.7). IL ne reste plus 
qu'à Lire ces nibbles. MAIS il faut savoir que 
ces demi-octets sont invérsés deux à deux . 


Par exemple Le mot de passe POPOL sera codé 
05F405F4C4000000 au Lieu de 504F504F4C000000. IL 
s'agit donc de remettre tout ce petit monde dans 
Le bon sens. 


C'est ce que font Les programmes PWORDB et PWORDF 
qui font La même chose. Mais PWORDB est écrit en 
BASIC utilise 190 octets et est lent alors que 
PWORDF utilisant des fonctions du modules 
FORTH/ASSEMBLER est plus rapide , n'occupe que 82 
octets de mémoire mais a besoin de FORTHRAM soit 
au bas mot 2957 octets.Je vous Laisse donc 
choisir celui que vous voudrez et réfléchir à 
l'utilité de tels programmes ... 


J. Baudier PPC 192 
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ECREMEZ VOS PROGRAMMES ! 


Le programme ECREM, pour ECrase REMarques, est La 
transcription du programme SUPREM de Laurent 
ISTRIA (JPC No 26 juillet/août), adapté aux 
fonctions du fichier Lex EDLEX. Son avantage: le 
fichier travail n'a pas besoin d'être recopié, 
d'où une économie significative en mémoire. 
D'autre part, en cas de pépin, Le message d'erreur 
adéquat est affiché. Si tout s'est correctement 
déroulé, vous verrez apparaître ‘End of File'. 
Cela indique que Le fichier 8 bien été traité 
jusqu'à La dernière Ligne. C'est une amélioration 
notable par rapport à SUPREM qui se gardait bien 
de vous informer de son mal-fonctionnement 
éventuel. Par contre j'ai conservé dans son 
intégralité La partie analyse qui donnait toute 
satisfaction. La mise en oeuvre est immédiate et 
identique à celle de son grand-frère, je me 
dispense donc de vous La décrire. Au plaisir de 
vous Lire... 


Jean-Pierre BONDU (P33) 


nm mmm nm mm mm mm mm mm mm mm mm mm mm mmmmmmmm 


hr EQUATE x 


Rebonjour, 

Voici Un programe BASIC (ça éxiste encore), qui 
peut être très utile pour récupérer les 
équivalences d'un fichier assemblé. Une fois 
lancé, il vous demande Le fichier objet (qui est 
le fichier Listing du programme que vous avez 
déjà assemblé, et dans lequel se trouve La table 
des symboles). IL vous demande ensuite Le nom du 


fichier objet qui est Le source que vous êtes en 
train d'écrire. IL se renferme ensuite dans son 
mutisme profond et inquiettant, et si tout va 
bien (pas de memory Lost ou autres erreurs), le 
curseur réapparait. 

Lorsque vous repassez en éditeur de texte pour 
retrouver votre fichier, vous voyez sous vos 
yeux ébahis toutes Les équivalences du listing 
dont Le symbole NE SE TERMINE PAS PAR UN 
CHIFFRE. Vous avez ainsi récupéré toutes les 
adresses importantes de vos programmes. 
Amusez-vous bien, faites plein de memory lost, 
et si vous faites encore des branchements de 
programme où il ne faut pas, ce ne sera plus une 
erreur de frappe, ce sera votre programme qui 
aura changé de place. 

Note: il y a un bug dans l'assembleur. Quand la 
table des symboles est à cheval sur plusieurs 
pages, seule La première page est correcte, mais 
les autres ont Les valeurs numériques écrites en 
décimal.. Mon programme ne récupère que la 
première page. 


Serge Vaudenay 


DEVELOPPEMENTS LIMITES EN R.P.N. 


Possesseurs du 71, il m'arrive en mode CALC de 
regretter La R.P.N. de La bonne vieille 41. 
Excusez ma familliarité(!). En ajoutant à ce 
sentiment Le désir de posséder un programme qui 
donne Le DL(0) (lire developpement limité en 0) 
de n'importe quelle fonction, on arrive à 
l'origine de 'DL'. 

Le calcul d'un DL peut se décomposer en un 
nombre fini d'opérations (additions, 
soustractions, multiplications, divisions, 
compositions) sur des polynômes. Nous pouvons 

“apprendre! au 71 quelques DL classiques 
COS, SIN,ASIN,TAN,ATAN,CH,SH,TH 

LNC1+X),EXP,(1+X)"a 

Nous allons donc créer sur Le 71 une pile 





identique à celle de La 41, et alors tout sera 
possible ... Il faut savoir que Les DL 
classiques se trouvent à L'emplacement de La 
fonction correspondante (par exemple pour avoir 
le DL de COS appuyez sur f5).Pour avoir Le DL de 
(1+X)"a appuyez sur !”"! 

Pour entrer Le DL des fonctions hyperbol iques 
(qui ne sont pas accessibles au clavier) appuyez 
sur ‘f7! pour SH, sur ‘f8! pour CH, sur ‘f9! 
pour TH 

Pour entrer un polynôme quelconque appuyez sur 
‘?'. Pour additionner appuyez sur ‘+!, pour 
multiplier sur ‘*! etc ... Pour composer appuyez 
sur ‘C!', et grâce au programe de Pierre DAVID 
en eppuyant sur 'F' vous avez La fraction du 
coefficient désiré du polynôme qui est en x*. 
Pour connaitre Le DL qui est en X appuyez sur 
END-LINE. 

Opération dans La pile : X<>Y se trouve en !X!, 
RDN en '#51!, RUP en '#50!, Clx en ‘#49, CHS 
sur ‘=!. Ceux qui ne connaissent pas La 41, 
n'ont qu'à se renseigner! 

Exemple : DL de EXP(ASIN(X)) à l'ordre 4 : 
faites RUN DL, entrez 4 (attention il vaut 
parfois mieux rentrer un degré superieur à celui 
désiré), tapez ensuite sur ‘fl'(donne Le DL de 
ASIN) puis sur ‘f*! et enfin sur 'C!' pour avoir 
les coefficients appuyez à chaque fois sur 
END-LINE, vous obtenez a(0)=1, a(1)=1, a(2)=.5 
etc... 


Alain HERREMAN 


HP71: TELLEMENT COMPLEXE ! 


Les programmes proposés par HP concernant Les 
opérations sur Les nombres complexes étaient 
déjà sur La 41 d'un emploi peu commode . A la 
réunion de juin, J.J. Moreau nous à présenté Le 
module MATH, qui, semble-t-il est très bien. 
Mais, Le programme concernant Les complexes 
m'est apparu encore une fois peu pratique 


d'emploi (je ne l'ai jamais eu entre Les mains, 
alors si quelqu'un peut m'en envoyer un pour 
démentir ce fait, qu'il n'hésite pas.) Par 
conséquent, je vous propose Un programme 
recréant une pile identique à celle de La 41, 
mais pour des nombres complexes! 

Vous y trouverez les fonctions suivantes  : 
1,% +," ENTER, RUP ,RDN,CLX,CHS,CLST,X<>Y, 

RC XY ZT, STOXYZT plus : BAR(donne le 
conjugué) et MOD(module et argument). 

Le programme a été créé de manière à ce qu'il 
soit facile d'ajouter d'eutres fonctions. En 
plus du programme,il faut un fichier KEY appelé 
‘CX' avec Les assignations suivantes : 
KEY'P!,!'CONT BAR': KEY!'*1,!CONT DIV!': 
KEY':','CONT MUL': KEY'@!','CONT SOUS!: 
KEY'?!,'CONT ADD': KEY'#38!,'CONT ENTER!': 
KEY'#50!,'CONT RUP': KEY'#51!,!:CONT RDN!': 
KEY'#491,'CONT CLX': KEY'=!,!CONT CHS': 
KEY'C','CONT CLST': KEY'X!','CONT ECH': 
KEY'I!','it; KEY'M!,'CONT MOD': 

KEY'R','CONT RCL': KEY'S!,!CONT STO': 
KEY'F',!CONT FIN': 

Vous avez ainsi, en regardant Les codes, 
l'emplacement des fonctions sur Le clavier. 
Passons à l'exemple : RUN COMPLEXE 

IL est possible que vous ayez Un peu n'importe 
quoi à l'affichage, ceci est du au fait qu'on ne 
fait pas de DESTROY, afin d'avoir une ‘pile 
complexe 41 constant memory', n'hesitez pas à 
rajouter cet ordre si La ‘constant memory! ne 
vous semble pas indispensable. 

important : i”"2=-1 

Faites i (appuyez sur I!) ENTER g* vous 
obtenez -1+i0; ça marche ! Vous obtenez autre 
chose, alors relisez tout et/ou Listez votre 
programme, et 'CX'! Plus difficile maintenant : 
F(1+12)(1-13)+(1+12)(3-55)5+1+i2 Faites 1+i2 STO 
Y (appuyez sur !'S', puis ‘Y' END-LINE) 2i g* 
1-53 g* RCL Y (appuyez sur !‘R', puis ‘Y! 
END-LINE) 3-15 g* 5 g* g+ 1+i2 g+ et vous 
obtenez : 68+i21 

N.B. : Pour Les pointilleux, il y a un petit 
BUG : faites CLST puis MOD vous obtenez mod(z)=0 
et =0 Deg ; horreur! Un argument pour un 
complexe nul! 


Alain HERREMAN 
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UN BRIDGE CE SOIR ? 


IL errive parfois que Les bridgeurs de haut 
niveau fassent de savants calculs pour essayer 
de connaître La probabilité pour que Leur 
adversaire (ou leur partenaire) ait tel ou tel 
jeu. Un des moyens de calcul utilisés est Le 
savoir du nombre de point de l'autre. Je 
commencerais Les explications par La définition 
du terme 'main'. On appelle ‘main! tout ensemble 
de 13 cartes qu' un joueur est susceptible de 
retourner après La donne. A chaque main, on peut 
attribuer une valeur qui diffère suivant Le type 
de cartes qu'elle contient. Si une main contient 
A as, R rois , D dames et V valets, alors sa 
valeur est affectée du coefficient 
4*A+3*R+2*D+V. C'est à l'aide de cette valeur 
que Les joueurs vont pouvoir agir dans La 
première partie d'un tour, Les ‘annonc es'. En 
effet, à tour de rôle, chaque joueur va essayer 
de faire comprendre à son partenaire, situé en 
face de lui, quelle est La valeur de sa main. Je 
m'arreterai ici pour les explications relatives 
au bridge, et vous parlerai maintenant du petit 
programme que je soumets à votre approbation ce 
mois-ci 

Tout d'abord, quel peut bien être Le nombre de 
mains existantes au bridge; autrement dit, soit 
un bridgeur qui se distribuerait des cartes sans 
arrêt, au bout de combien de coups pourrait-il 
supposer avoir eu toutes Les mains ? 

IL e 52 façons de se distribuer La première 
carte; pour La deuxième, il n'a plus que 51 
solutions, puis 50, 49, ..., jusqu'à ce qu'il 
ait ses 13 cartes en main. Ce nombre s'appelle 
C(52,13) et est égal à 635013559600 très 
exactement. Bon, maintenant, fort de ce fait, 
notre joueur voudrait bien savoir quelle est sa 
probabilité de relever une main de 10 points 

Pour simplifier Le problème, nous allons 
raisonner sur une main de O point. Comment 
peut-elle être formée ? La réponse, dans ce cas 
précis, est assez simple. Il lui suffit de 
piocher ses 13 cartes parmi celles qui n'ont pas 


de valeur, soit 52- 4 as- 4 rois- 4 dames- 4 
valets, c'est -à-dire, 36 cartes. Le nombre 
total de mains valant 0 point est donc égal à 
C(36,13=231078960. Sa probabilité est alors: 
2310789600/635013559600=3.64 E-3, soit une main 
sur 274 environ. 

Poussons Un peu Le raisonnement pour 1 point 
par main. IL lui faut au plus un valet, et douze 
cartes basses. IL a donc 4 possibilités pour le 
valet (C(4,1) soit un valet parmi 4) et C(36,12) 
possibilités pour Les cartes basses, soit 
1251677700 possibilités. Le nombre de mains est 
donc: 4*121677770=5006710800, La probabilité: 
5006710800/635013559600=7.88 E-3, soit une main 
sur 126) .Pour Les mains de 10 points le 
problème qui se pose est de chercher toutes Les 
mains qui donnent 10 points. Nous verrons donc 
comment faire par la suite. On pourrait alors 
continuer jusqu'au nombre maximum de points (et 
nous allons du reste Le faire) mais, en 
utilisant cette méthode, il nous faudrait un bon 
bout de temps 

L'art du pseudo-informaticien en herbe que je 
suis consiste donc à faire un programme qui me 
simplifiera Le travail. Je vous signale tout de 
suite que Le résultat de mes dernières 
cogitations suppose La présence en mémoire du 
LEX que j'avais fait paraître dans Le numéro de 
juin: COMBARR. 

Le programme est d'une facilité de 
compréhension  déconcertante, et on peut être 
étonné de sa simplicité et de sa brièveté, mais 
cela est dû au fait que l'analyse logique du 
problème est très simple . Passons donc aux 
explications. 

Déterminons tout d'abord Le nombre maximum de 
points que peut contenir une main. Cette main, 
la plus forte qui soit au bridge, contiendra 
nécéssairement Un maximum d'as, de rois, de 
dames et de valets. Mais, La possession de 
toutes ces cartes implique une main de 16 
cartes. IL faut donc en éliminer 3. Ce seront 
bien entendu les 3 valets, ce qui nous donnera 
un main de 37 points. La panoplie des valeurs 
s'étend donc de 0 à 37 points. 

Dimensionnons une variable en OPTION BASE O0 à 
38 indices (de 0 à 37). Il nous suffit de faire 
varier Le nombre d'as, de rois, de dames et de 
valets respectivement de 0 à 4 pour obtenir 
toutes Les mains possibles (les autres cartes 





valent 0, et seul Le nombre de point nous 
intéresse ici). A chacun de ces ‘types de mains! 
ainsi obtenu, on peut faire correspondre le 
nombre de mains qu'il génère. IL suffit alors 


d'ajouter dans la variable indicée adéquate ce, 


nombre. Mais, un exemple concret vaut parfois 
mieux qu'une lonque suite d'explications, alors, 
allons-y. 

Soit La quadruplet (A,R,D,V)=(2,1,0,4). On lui 
affecte La valeur de 15 points. Mais combien de 
mains sont-elles de ce type ? IL y a C(4,2) 
façons de prendre Le as, C(4,1) façons de 
prendre Les rois, on ne prend pas de dame, et 
tous Les valets. La main contient alors 2+1+4=7 
cartes. IL en faut donc encore 6 pour arriver à 
13. Ces dernières sont piochées parmi les cartes 
basses au nombre de 36. IL y a donc C(36,6) 
possibilités différentes. Le quadruplet 
(2,1,0,4) génère donc: 
C(4,2)*C(4,1)*C(4,0)*C(4,4)*C(36,6)=6*4*1*1*194779 
=46747008 mains. Mais, il existe bien d'autres 
quadruplets  génèrant 15 points:  (3,0,1,1), 
(0,3,1,4), ... C'est La raison pour Laquelle on 
fait varier chaque carte haute de 0 à 4. 

Mais il faut prendre garde à 2 choses: tout 
d'abord, on ne doit pas dépasser 37 points, 
ensuite, il faut éliminer radicalement tout 
ensemble de cartes hautes comprenant à lui seul 
plus de 13 cartes (ex: (4,4,3,4)). Une fois 
exclues ces 2 causes de falsification des 
résultats, il suffit de lancer Le programme. Au 
bout de 177 secondes, il s'arrête et, de vos 
doigts fébriles, vous pouvez extraire de chaque 
mémoire Le nombre de mains ayant tel ou tel 
nombre de points. Un excellent moyen de 
vérification est de faire La somme de toutes ces 
mains. Si vous ne vous êtes pas trompé, (mon 
programme tourne, je l'ai essayé) vous devez 
retrouver C(52,13), Le nombre total de mains 
accessibles. 

Voila, peut-être ces quelques Lignes vous 
auront-elles interéssés, je Le souhaite tout au 
moin , et je pense déjà à vous soumettre un 
autre article, mais cette fois sur les 
probabilités de réussite de culture des 
topinambours dans Le haut Tibet. 


L. ISTRIA (P.P.C. #3, S.1.G #3) 
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FICHIER TEXT “HP41" DU TRANSLATER PROGRAM 


NULL 


LBL 
LBL 
LBL 
LBL 
LBL 
LBL 
LBL 
LBL 
LBL 
LBL 
LBL 
LBL 
LBL 
LBL 
LBL 
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EEX 
NEG 
GTO 
XEQ 


RCL 
RCL 
RCL 
RCL 
RCL 
RCL 
RCL 
RCL 
RCL 
RCL 
RCL 
RCL 
RCL 
RCL 
RCL 
RCL 
STO 
STO 


SPC AT ADS ON nee ee 4 


STO 02 
STO 03 
STO 04 
STO 05 
STO 06 
STO 07 
STO 08 
STO 09 
STO 10 
STO 11 
STO 12 
STO 13 
STO 14 
STO 15 


x”2 
SORT 
Y°x 
CHS 
EX 
LOG 
10"X 
E"X-1 
SIN 
cos 
TAN 
ASIN 
ACOS 
ATAN 
DEC 
1/X 
ABS 
FACT 
X#0? 


X>0? 
LN1+X 
X<0? 
X=0? 
INT 
FRC 
D-R 
R-D 
HMS 
HR 
RND 
OCT 
CL 
X<>Y 
PI 
CLST 
R* 
RDN 
LASTX 
CLX 
X=Y? 
X#Y? 
SIGN 


MEAN 
SDEV 
AVIEW 
CLD 
DEG 
RAD 
GRAD 
ENTER” 
STOP 
RTN 
BEEP 
CLA 
ASHF 
PSE 
CLRG 
AOFF 
AON 
OFF 
PROMPT 
ADV 
RCL 
STO 
ST+ 
ST- 
ST* 
ST/ 


1SG 
DSE 
VIEW 
_RE5 
ASTO 
ARCL 
FIX 
sci 
ENG 
TONE 
XROM 
XROM 
XROM 
XROM 
XROM 
XROM 
XROM 
XROM 
SF 

CF 
FS?C 
FC?C 
FS? 
FC? 
GTO.EXQ IND 
SPARE 
SPARE 
GTO 00 
GTO 01 
GTO 02 
GTO 03 
GTO 04 
GTO 05 
GTO 06 
GTO 07 
GTO 08 
GTO 09 
GTO 10 
GTO 11 
GTO 12 
GTO 13 
GTO 14 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 


GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
X<> 
LBL 
GTO 
GTO 
GTO 
GTO 
GTO 
GTO 
GTO 
GTO 
GTO 
GTO 
GTO 
GTO 
GTO 
GTO 
GTO 
GTO 
XEQ 
XEQ 
XEQ 
XEQ 
XEQ 
XEQ 
XEQ 
XEQ 
XEQ 
XEQ 
XEQ 
XEQ 
XEQ 
XEQ 
XEQ 
XEQ 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 


© © J OO U1 # WW NO = © 


TEXT 10 
TEXT 11 
TEXT 12 
TEXT 13 
TEXT 14 


-TIME- C 
ADATE 
ALMCAT 
ALMNOW 
ATIME 
ATIME24 
CLK12 
CLK24 
CLKT 
CLKTD 
CLOCK 
CORRECT 
DATE 
DATE+ 
DDAYS 
DMY 
DOW 
MDY 
RCLAF 
RCLSW 
RUNSW 
SETAF 
SETDATE 
SETIME 
SETSW 
STOPSW 
SW 

T+X 
TIME 
XYZALM 


-EXT FCN 1C 
ALENG 
ANUM 
APPCHR 
APPREC 
ARCLREC 
AROT 
ATOX 
CLFL 
CLKEYS 
CRFLAS 


CRFLD 
DELCHR 
DELREC 
EMDIR 
FLSIZE 
GETAS 
GETKEY 
GETP 
GETR 
GETREC 
GETRX 
GETSUB 
GETX 
INSCHR 
INSREC 
PASN 
PCLPS 
POSA 
POSFL 
PSIZE 
PURFL 
RCLFLAG 
RCLPT 
RCLPTA 
REGMOVE 
REGSWAP 
SAVEAS 
SAVEP 
SAVER 
SAVERX 
SAVEX 
SEEKPT 
SEEKPTA 
S12E? 
STOFLAG 
X<>F 
XTOA 


-PRINTER 2E 
ACA 

ACCHR 

ACCOL 
ACSPEC 

ACX 
BLDSPEC 
LIST 

PRA 

XROM "PRAXIS! 
PRBUF 


PRFLAGS 
PRKEYS 
PRP 


XROM !PRPLOT' 
XROM "PRPLOTP'! 


PRREG 
PRREGX 
PR 
PRSTK 
PRX 
REGPLOT 
SKPCHR 
SKPCOL 
STKPLOT 
FMT 


-MASS ST 1H 
CREATE 
DIR 
NEWM 
PURGE 
READA 
READK 
READP 
READR 
READRX 
READS 
READSUB 
RENAME 
SED 
SEEKR 
UNSEC 
VERIFY 
WRTA 
WRTK 
WRTP 
WRTPV 
WRTR 
WRTRX 
WRTS 
ZERO 
-CTL FNS 
AUTOIO 
FINDID 
INA 
IND 
INSTAT 
LISTEN 


LOCAL 
MANIO 
OUTA 
PWRDN 
PWRUP 
REMOTE 
SELECT 
STOPIO 
TRIGGER 


-X MASS 1A 
COPYFL 
DIRX 
FLLENG 
FLTYPE 
MCOPY 
MCOPYPV 
MVERIFY 
-X EXT FCN 
ALENGIO 
ANUMDEL 
ATOXL 
ATOXR 
ATOXX 
XTOAL 
XTOAR 
X<>F10 
YTOAX 
-X CTL FNS 
AID 
CLRDEV 
CLRLOOP 
DEVL 
DEVT 
FINDAID 
ID 

INAC 
INACL 
INAE 
INAN 
INXB 
INP 
LOCK 
NLOOP 
NOTREM 
OUTAC 
OUTACL 
OUTAE 
OUTAN 


OUTXB 
OUTP 
POLL 
POLLD 
POLLE 
POLLUNC 
RCLSEL 
SRQ? 
STAT 
XFER 
XFERC 
XFERCL 
XFERE 
XFERN 
-ADV CTL FN 
ADROFF 
ADRON 
DDL 
DDT 
LAD 
SEND 
TAD 
UNL 
UNT 


PLOTTER 1A- 
CLIPUU 
CSIZE 
CZ12E0 
DGTIZE 
DRAW 
FRAME 
GCLEAR 
IDRAW 
IMOVE 
IPLOT 
LABEL 
LDIR 
LIMIT 
LOCATD 
LOCATE 
LORG 
LTYPE 
LTYPEO 
LXAXIS 
LYAXIS 
MOVE 
PEN 
PENDN 


PENUP 
PINIT 
PLOT 
PLREGX 
RATIO 
RPLOT 
SCALE 
SETGU 
SETUU 
TICLEN 
UNCLIP 
WHERE 
XAXIS 
XAXISO 
YAXIS 
YAXISO 


PLOTTER 2A- 
PCLBUF 
PDIR 

PRCL 


XROM "NEWPLOT!! 


XROM "REPLOT" 
XROM "PLINIT 
XROM "PLTUXY! 
XROM "'PLANOT!! 
XROM "Y?1: 
XROM 11x71 

BC 

BCA 

BCAA 

BCCKSM 

BCO 

BCP 

BCREGX 

BCSIZE 

BCX 

BCXS 


- WAND 1F - 
WNDDTA 
WNDDTX 

WNDLNK 
WNDSUB 

WNDSCN 

XROM "UNDTST!! 


CARD RDR 1F 
MRG 
RDTA 
RDTAX 
RSUB 
VER 
WALL 
WDTA 
WDTAX 
WPRV 
WSTS 
7CLREG 
7DSPO 
7DsP1 
7DSP2 
7DSP3 
7DSP4 
7DSP5 
7DSP6 
7DSP7 
7DSP8 
7DSP9 
7DSPI 
7DSZ 
7DS21 
TENG 
7FIX 
7GSBI 
7GTOI 
71SZ 
71S21 
7P<>S 
7PRREG 
7PRSTK 
7PRTX 
FRLC_ 
7SCI 


-HP-IL DEV 
A-BUF 
A=BUF? 
A=BUFX? 
AAD 

AAU 
AIPT 
BSIZE? 
BSIZEX 
BUF-AX 
BUF-RGX 


BUF -XA 
BUF-XB 
CF33 
CMD 
DDL 
DDT 
FRAV? 
FRNS? 
GET 
GTL 

IDY 
IFCR? 
IFC 
INBIN 
INBUFX 
LAD 
LPD 
MIPT 
MONITOR 
NRD 
NRE 
ORAV? 
OUTBIN 
OUTBINY 
OUTBUFX 
PT= 

PT? 
PRBYTES 
PRFRMS 
REN 
RFRM 
RG-BUFX 
RG=BUF? 
RREG 
SAI 
SCOPE 
SDA 
SDC 

SDI 
SF33 
SROR? 
SST 

TAD 
TCT 
UNL 
UNT 
WRFRM 
WREG 
X-BUF 
X2=BUF? 
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X<>FLAG 


AND 
ASI2E? 
A-XL 
A-XR 
A-XX 
BININ 
BINVIEW 
BIT? 
HEXIN 
HEXVIEW 
NOT 

OR 
OCTIN 
OCTVIEW 
ROMCHKX 
ROTXY 
XOR 
X-AL 
X-AR 
Y-AX 


TEST DE KOLMOGOROV ET DE SMIRNOV 


- test de KOLMOGOROV pour comparer une Loi expé. à une fonction de répartition théorique 
test de SMIRNOV pour comparer 2 lois expérimentales 
sauvegarde automatique des Lois 
LEX KEYWAIT utilisé 
Michel WEIL, 2a rue des jardins, 25000 BESANÇON 
flag 1 armé: test de SMIRNOV 
flag 1 desarmé: test de KOLMOGOROV 
flag 3 armé: saisie au clavier 
flag 3 desarmé: saisie par fichier 
flag 4 armé: test de normalité (KOLMOGOROV) 
flag 0 armé: moyenne et 6-t. spéciaux (dans Le cas de test de normalité) 
40 DESTROY ALL @ CFLAG 0,1,3,4 @ OPTION BASE 1 à DELAY 0,0 à STD 
50 INTEGER 1,J,M,M1,N,N1 à DIM MS$[8],N$[8),X(100,1),Y(100,1) 
60 CALL MENUCMS,N$) @ IF FLAG(1) THEN REAL C,C1,C5,A,B ELSE REAL M5,E,T 
- entrée des données: 
70 IF FLAG(3) THEN GOSUB 'CLAV' à GOTO 90 
80 CALL FICHIER(MS,M,X(,)) @ IF FLAG(1) THEN CALL FICHIERCNS,N,Y(,)) 
90 DIM X(M) à M1=M à IF FLAG(1) THEN DIM YC(N) à N1=N 
- moyenne et é-t.: 
100 IF FLAG(O) THEN INPUT "m ,é-t = ?":M5,E ELSE CALL MOYETI(M,X(),M5,E) 
- trie Les entrées: 
110 CALL SHELL(M,X()) @ IF FLAG(1) THEN CALL SHELLCN,Y()) 
120 DIM X(M,1),PCM,1) @ MAT P=(1/M) à IF FLAG(1) THEN DIM Y(N,1),QCN,1) @ MAT Q=(1/N) 
- écrémage et poids du 1? facteur... 
140 I1=M Q J=N 
150 CALL ECREPOID(I,M,X(,),P(,)) 
160 DIM X(M,1),PCM,1) à I=1-1 à DISP 1 Q 1F 1>1 THEN 150 
170 IF NOT FLAG(1) THEN 200 
- ...puis du 22 facteur: 
180 CALL ECREPOID(J,N,Y(,),Q(,)) 
190 DIM Y(N,1),QCN,1) @ J=J-1 àQ DISP J à IF J>1 THEN 180 
- Choix du test: 
200 IF FLAG(1) THEN :SMIRNOV' ELSE ‘KOLMOGOR' 
- test de KOLMOGOROV 


DRSESZESSSS=S=SSSSSSSSSSSSSSSSSSSSSSSSSSSSSISSESSESESSSESSSSSSES=S= 
210 'KOLMOGOR': DIM X(M),PCM),RC(M),X1(M),P1(M),D(M) ! re-dimensionnement général 
220 R(1)=0 @ FOR 1=2 TO M @ R(I)=R(I-1)+P(1-1) Q NEXT I ! poids des répétitions 
230 IF NOT FLAG(4) THEN 290 ! pas de test de normalité 
240 FOR 1=1 TO M @ X1(1)=(X(1)-M5)/E @ NEXT I @ T=SQR(2*PI) ! réduction 
- Calcul des probabilités à l'aide de La loi normale(m,e) : 
260 P1C1)=FNIC-5,X1(1),T) @ FOR 1=2 TO M 
270 DISP 1 @ P1CI1)=P1CI-1)+FNI(X1C1-1),X1(1),7) 
280 NEXT 1 à GOTO 310 
290 DISP “fct.de répart.théo.?"; @ DISP M; @ MAT INPUT P1 ! Cas de non normalité 
- Calcul l'écart de Kolmogorof... 
310 FOR 1=1 TO M à D(1)=MAX(ABS(R(1)-P1(1)),ABSCR(I)+P(1)-P1(1))) 
- ...et tests finaux: 
330 IF D(1)>=.989/SQR(M1) THEN 'R1' 
340 NEXT 1 à FOR J=1 TO M à IF D(J)>=.878/SQR(M1) THEN 'R5! 
350 NEXT J à PRINT “HO est accepté à 5% ";: 
360 IF FLAG(4) THEN PRINT “pour N(m=";:M5;tré-tznEsnpu 
370 GOTO ‘FIN! 


380 ‘R1': PRINT ‘HO est refusé à 1%! à GOTO ‘FIN! 
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390 'R5': PRINT ‘HO est refusé à 5%! 


SSSSSSSSSSSSSSSSSSSSSSSSSSEESSEESEESSSESSSESESSEEESSSSSEEESESSE 
400 'FIN': BEEP @ END 

- test de SMIRNOV 
RRRRSSSSSSSSSSSSESSSSSSSSSSSSSSSSSLESSESSSSEESSSSSSSEESSESESSEE 


410 'SMIRNOV': DIM X(M),PCM),RCM),YCN),QCN),SCN),Z1CM+N),DCM+N) 
- fréquences cumulées de X et Y: 
420 R(1)=0 @ FOR 1=2 TO M à R(I)=R(1-1)+P(1-1) @ NEXT 1! 
430 S(1)=0 à FOR 1=2 TO N à S(I1)=S(1-1)+Q(1-1) @ NEXT 1 
- Les 2 données sont réunies... et retriées: 
440 FOR 1=1 TO M @ Z1(1)=X(1) à NEXT 1! 
450 FOR 1=M+1 TO M+N à Z1(1)=Y(I-M) à NEXT 1 
460 CALL SHELL(N+M,Z1()) 
- Voici Le test de SMIRNOV: 
470 C=SQR(1/M1+1/N1) à C5=1.3581*C à C1=1.6276*C à FOR J=1 TO M+N à DISP J 
480 CALL FCTREPAR(Z1(J),XC),RC),M,A) @ CALL FCTREPAR(Z1(J),Y(),SC),N,B) 
490 D(J)=ABS(A-B) à IF D(J)>C1 THEN 'R1! 
500 NEXT J 
510 FOR J=1 TO M+N à IF D(J)>C5 THEN 'R5' 
520 NEXT J 
530 PRINT “HO accepté à 5%" 
540 BEEP @ END 
- Saisie au clavier 


ERRES2SSSERSESEREZS=ZSSSZSSZ=SSSSS=SSSSSSSSSSSSSS2SSSS222222222z 
560 'CLAV': IF FLAG(1) THEN 'LOIS2' ELSE INPUT “Nbres de données? ";:M 
570 DIM X(1,M) @ CALL ENTRECM,X(,),M$) @ RETURN 


RRSS2S22222SSS222EZZSSIESEZSESSESSSESSESSESSSSSSSSSSSSSSSSSSSS 
580 'LOIS2': INPUT "Nbre données :12loi?";M @ DIM X(1,M) @ CALL ENTRE(M,X(,),M$) 
590 INPUT “Nbre données :22loi?";:N à DIM Y(1,N) à CALL ENTRECN,Y(,),N$) @ RETURN 


SSSSSZSZIZIZISIZSZISSISSSESSSSSSSSSSSSSSSSSS==SSSSS=S====SSSESESEEEZ 


600 DEF FNI(A,B,T)=INTEGRAL(A,B,.001,EXP(-IVAR*IVAR/2))/T ! proba entre À et B 


ŒSSSSSSSSSSSSSSSSSSSSISSISSSSSSIEISEISIESISISSSSSESSSS=S================ 


entrée des données au clavier et sauvegarde: 


1000 SUB ENTRE(M,Z(,),M$) 

1010 MAT INPUT Z @ MAT PRINT Z; 

1020 Q$="Correction (O/N) ?" @ CALL OUINON(Q$,K) @ ON K+1 GOTO 1040,1030 

- 1030 DISP “Changer 2(1,2) !" à PAUSE 

1040 CREATE DATA M$ à ASSIGN #1 TO M$ à PRINT #1;2 @ ASSIGN #1 TO * à END SUB 
- calcule moyenne et é-t: 


SSSSSSSSSSSSSSSESTSSTSSSSSTSSSSSSSTSSITIITIITIETEZSSTZEZZSZSTEEEEzEz 

1110 SUB MOYETIC(N,XC),M,E) à STAT H(1) 

1120 FOR 1=1 TO N @ ADD X(I) à NEXT 1 à M=MEAN àQ E=SDEV Q CLSTAT à END SUB 
- Lecture de fichier 


1210 SUB FICHIER(MS,L,2(,)) 

1220 ASSIGN #1 TO M$ @ L=0 à ON ERROR GOTO 1240 
1230 L=L+1 à READ #1;2Z(L,1) @ GOTO 1230 

1240 OFF ERROR à ASSIGN #1 TO * à L=L-1 

1250 END SUB 


JPC 
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SISISSSSSSSIIZSIISZSSSSSSSEEZZ2SSSSSS=SSSSSS=SEsS=SSSSSSS===SSS2Z 


- fct réponse 


1812 SUB OUINON(Q$,Q) 
1814 DISP Q$ à I=POS('NOFC12",UPRCS(KEYWAITS[1,1)))-1 à IF 1<0 THEN 1814 
1816 Q=MOD(1,2) à END SUB 

- Choix des options 


1852 SUB MENUCMS,N$) 
1854 Q$="Smirnov(2)Kolmogrof(1)" à CALL OUINON(Q$,Q) à DISP FLAG(1,Q) 
1856 IF FLAG(1) THEN 1860 
1858 LINPUT "Nbres de déçimales? ","31:1$ Q FIX VAL(I$) 
1860 Q$="Clavier/Fichier (C/F)?" @ CALL OUINON(Q$,Q) à DISP FLAG(3,Q) 
1862 IF FLAG(1) THEN 1874 
1864 INPUT "Nom de La Loi expér.?":M$ 
1866 Q$="test de normal ité(0/N)" à CALL OUINON(Q$,Q) à DISP FLAG(4,Q) 
1868 IF NOT FLAG(4) THEN ‘FIN' 
1870 Q$="m ; é-t:spéciaux?(0/N)" à CALL OUINON(Q$,Q) à DISP FLAG(0,Q) 
1872 GOTO ‘FIN! 
1874 INPUT “Nom de La 12 Loi ?":M$ 
1876 INPUT "Nom de La 22 Loi ?":N$ à ‘FIN': END SUB 

- supression de La Ligne n° N (matrice RxC) : 


SS=SSSZSZISIIESSSSSS=SSSSSSSSSSSEIZESSSSSSSSSSESSSSS==SSS=SSssssSSsSS=S= 
2700 SUB LIGNMINUÇ(A(,),R,C,N) 

2710 IF N<1 OR N>R THEN DISP “la Ligne n'existe pas" à PAUSE 
2720 IF R=1 THEN DISP "Erreur:1 seule Ligne" à STOP 

2730 DISP "du calme.." @ 1F N=R THEN 2760 

2740 FOR I=N TO R-1 à FOR J=1 TO C 

2750 A(1,J)=A(1+1,J) @ NEXT J à NEXT I 

2760 END SUB 


3000 SUB SHELL(N,X()) @ DISP "ça trie Shell.." @ K=N 

3010 K=INT(K/2) 

3020 IF K=0 THEN 3070 

3030 L=N-K @ FOR J=1 TO L à I1=J 

3040 M=I+K @ 1F X(1)<=X(M) THEN 3060 

3050 H=X(1) @ X(I)=XCM) à X(M)=H à I=I-K Q IF 1>0 THEN 3040 
3060 NEXT J à GOTO 3010 

3070 END SUB 


5000 SUB ECREPOID(I,M,X(,),PC,)) 
5010 IF XC1,1)=XC1-1,1) THEN PCI-1,1)=PC1-1,13+PC1,1) @ CALL MOINS(I,M,XC,),PC, D) 
5020 END SUB 


- Suppression de Lignes maudites: 
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5100 SUB MOINS(I,M,X(,),PC,)) 
5110 CALL LIGNMINUCXC(,),M,1,1) @ CALL LIGNMINU(P(,),M,1,1) @ M=M-1 @ END SUB 
- A: est La fct de répartition de X() 


SSSSSSSSSSSSSSSSSZISSSSSSSISZ=SSZSESSSSSSSSSSSSSSSSS==SSSS==E====SE= 


6010 SUB FCTREPAR(Z,X(),R(),M,A) 

6020 IF Z<X(1) THEN A=R(1) 

6030 FOR 1=1 TO M-1 à IF X(I1)<=Z AND Z<X(1+1) THEN A=R(1+1) 
6040 NEXT 1 

6050 IF X(M)<=Z THEN A=1 

6060 END SUB 


Re ee he ee eee ee ee eee ee ee ee ee ee ee ee ee ee oo eo eo fe ee eee of ef ro ee eee eee eo ee 


MOT DE PASSE 


10 DIM AS$[16] à A$=PEEKS$S('2F7B2!,16) 

20 AS=FNAS(AS) 

30 1F NUM(AS$) THEN DISP ‘Password : ‘;A$ ELSE DISP ‘Pas de password! 
40 END 


SSSSSSSzssssssssEssEsSEEzSsEEsszSEszE22EEEzZz=S=2=22S222S=S2==22SSSS== 
50 DEF FNA$(AS) 
60 FOR P=1 TO 8 
70 A$=AS$(0,P-1]&CHRSCHTD(AS [P+1,P+1]&AS$ [P,P]))&AS$ [P+2] 
80 NEXT P 
90 FNAS=AS 
100 END DEF 


Re ee ee ee er ee re ee eo ee eo ref ee ee eo ee eo re er oo ee eee eee 


MOT DE PASSE 


10 FORTHX ! HEX 2F7B2 9 !: à AS$=FORTHS 
20 1F NUM(A$) THEN DISP ‘Password : ';A$ ELSE DISP ‘Pas de password' 


Re ee ee ee ee ere er ee ee er er ro re rer eo le ro ee of eo oo eo el ee or ee eo oo ef 


SUPPRIME LES REMARQUES D'UN PROGRAMME 


- ECREM 530 26/08/85 
10 INPUT ‘Fichier: !;A$ @ CALL ECREM(A$) à BEEP @ END 


mms22222222222222222222222Z2ZZSSE2SSSSSSSSESSSSESEESSEESESZ=EEZ 
1000 SUB ECREM(A$) 

1010 DIM C$[140] 

1020 TRANSFORM A$ INTO TEXT à ASSIGN #1 TO AS 

1030 ON ERROR GOTO ‘ERR' @ FOR P=0 TO INF 

1040 READ #1,P;C$ à DISP C$[1,4] 

1050 IF NOT (POS(C$S,'!1!) OR POS(C$,' REM ‘)) THEN ‘NXT' 

1060 IF C$[6,6]='1! OR C$S[6,8]='REM' THEN GUSUB 'DEL' @ GOTO 'NXT' 
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1070 FOR J=6 TO LEN(C$) 

1080 IF C$[J,J1='"1 THEN J=POS(C$,'"1,J+1) @ GOTO 1110 

1090 IF C$[J,J1="1" THEN J=POS(CS$,"1",J+1) à GOTO 1110 

1100 IF C$(J,J]='1! OR C$[J,J+2]='REM' THEN C$=C$[1,J-2] @ GOTO 1120 
1110 NEXT J 

1120 IF CS[LEN(C$)J]='@' THEN C$[LENÇ(C$)]="" 

1130 REPLACE #1,P;C$ 


1140 'NXT': NEXT P 


HSSSSESSESESSSSESESESSESSS=SE=SEE=SE======S=SSE==SSSSSSESSSS======E== 


1150 'DEL': DELETE #1,P @ P=P-1 à RETURN 


1160 'ERR': OFF ERROR à DISP ERRM$ à ASSIGN #1 TO * 
1170 TRANSFORM A$ INTO BASIC 
1180 END SUB 


Rte tee ke he ee eee ee ee ee ee ee ee of ee fe ee ee fe oh ee fee ee ee ee ee fe ee ee ee ee ee ee eee ee re ere re ee 


EQUIVALENCES D'UN LISTAGE SOURCE 


10 INPUT “Fichier objet ? ":F$ 
20 INPUT “Fichier source ? ":S$ 
30 CALL EQUATE(FS$,S$) 


DESSSSZSZZZSZEIZITEIESSSSZIZSTESSZZSEZSZZIZZ==EZ====S=SS=SS=S====S==S=S=SSSSSE 
40 SUB EQUATE(FS,S$) 
50 ASSIGN #1 TO S$ 
60 ASSIGN #2 TO F$ 
- on met Le pointeur au début de La table. 
70 RESTORE #1,IP(SEARCH("SYMBOL TABLE",1,1,9999, 1) )+2 
- BouCLe de transfert. 


ŒESZSISSSSSSSESSSSSSEISSEISSESSSESESESSSESS=SSSSSSS=SSES=S======SSz=z 
80 'BCL': READ #1;AS$ 
- Si on a un enregistrement vide, c'est fini. 
90 IF AS$="N THEN END 
- Si c'est Le label FiLeNd, ou un label se terminant par un chiffre, on l'ignore. 
100 1F A$[1,6]="FiLenNd" OR FNL(A$,8)>47 AND FNL(A$,8)<58 THEN 'BCL' 
- Transfert de l'équivalence. 
110 PRINT #2;A$[1,71&" EQU #'"&AS[8) 


120 GOTO 'BCL' 
- Un peut de récursivité pour avoir le dernier caractère qui n'est pas un espace dans une 
chaine... 
SSSSSSESSSSESSSSSSSSLISSESSSSSESSTSSSSSESSESTSESSEESESSSEESESEEEE 


140 END DEF 
SSSSSSSSSSSSSSSSSSSSSLIEIESSSSSSSSSSSSSSSSSSSSSE=============S==E= 
150 END SUB 
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ee de eee ee ve ee eee ee ee ee re re ee ee 


DEVELOPPEMENTS LIMITES EN R.P.N. 


10 DESTROY ALL 
20 INPUT 'Degre des poly. : !:N à OPTION BASE 0 à DIM XCN),YCN),ZCN),TCND,ECN),CCN) 
30 STD à DELAY 0,.3 à DIM XS$ [96] ,YS [96] ,ZS 1961 ,T$ [96] ,C$ [96] 
40 DISP X$ 
50 AS=KEYS à IF A$='! THEN 50 
60 1F A$='/! THEN 470 
70 IF A$=1*1 THEN 330 
80 1F A$='+ THEN 360 
90 1F A$='-1 THEN 380 
100 IF A$='C! THEN 400 
110 IF AS='#50! THEN 710 
120 1F A$='#51! THEN 690 
130 IF A$='X! THEN 730 
140 1F A$="f4" THEN 610 
150 IF A$="f1! THEN 820 
160 1F A$='f5t THEN 630 
170 IF AS='f6! THEN 860 
180 1F AS='#3! THEN 780 
190 1F A$=1f7! THEN 650 
200 IF A$='g7! THEN 840 
210 IF A$='f8' THEN 670 
220 1F A$='f9! THEN 890 
230 IF A$='g9' THEN 800 
240 1F AS='#38' THEN 520 
250 1F AS=12' THEN 530 
260 1F A$='f-1 THEN 590 
270 IF A$='f*! THEN 600 
280 1F A$='F' THEN 570 
290 1F A$=!g/' THEN 740 
300 IF A$=' ! THEN 760 
310 1F A$='=! THEN 560 
320 GOTO 50 
330 DISP **! à ON ERROR GOTO 340 à FOR K=0 TO N à S=0 à FOR 1=0 TO K à S=S+X(1)*Y(K-1) 
340 NEXT 1 @ ECK)=S @ NEXT K @ FOR 1=0 TO N à X(1)=EC1) à Y(1)=ZC1) à Z(1)=YCI) à NEXT 1 
350 XS='('&YS&')*('EXS&')! à YS=ZS à Z$=T$ à GOTO 40 
360 DISP ‘+! à FOR 1=0 TO N à XC1)=X(1)+YC1) à YCI)=ZC1) à ZCI)=T(1) à NEXT 1 
370 X$='('B&XS&')+('B&YS&')' à YS=2$ à 2$=T$ à GOTO 40 
380 DISP !-! à FOR 1=0 TO N à XCI)=YC1)-XC1) 9 YCI)=ZC1) 9 ZC1)=T(1) à NEXT 1 
390 X$='('&YSE')-('EXSE')! à YS=2S à Z$=T$ à GOTO 40 
400 DISP ‘Comp.' à IF Y(0) THEN BEEP à DISP ‘WRN: Y(O)#0' à WAIT 2 à GOTO 40 
410 DESTROY D à DIM DCN) à FOR 1=0 TO N à C(I)=Y(1) à NEXT I 
420 D(0)=X(0) à FOR 1=0 TO N à DC1)=D(1)+XC(1)*YC1) @ NEXT 1 @ FOR L=2 TO N 
430 ON ERROR GOTO 440 à FOR K=0 TO N à S=0 à FOR 1=0 TO K à S=S+Y(1)*C(K-1) 
440 NEXT 1 @ ECK)=S à NEXT K @ FOR 1=0 TO N à Y(1)=EC1) à NEXT I 
450 FOR 1=0 TO N à D(1)=D(1)+X(L)*YCI) @ NEXT I à NEXT L à FOR 1=0 TO N à X(1)=D(1) 
460 OFF ERROR à Y(1)=ZC1) @ Z(1)=T(1) @ NEXT 1 à XS=XS&' ['&YS&']' à YS=2$ à 2$=T$ à GOTO 40 
470 DISP ‘/* à DESTROY E à DIM ECN) à IF X(J) THEN 480 ELSE J=J+1 à GOTO 470 
480 FOR K=J TO N à ECK-J)=YCK)/XCJ) 
490 ON ERROR GOTO 500 à FOR I=N-K TO O STEP -1 @ YCK+1)=Y(K+1)-XCI+J)*Y(K)/X(J) à NEXT 1 
500 NEXT K à FOR 1=0 TO N à X(1)=E(1) à Y(1)=ZC1) à Z(1)=T(1) à NEXT 1 à J=0 
510 XS='('&YS&')/C'EXSR')! à YS=Z$ à 2$=T$ à GOTO 40 
520 FOR 1=0 TO N à DISP 'e(';STR$(I);')=';XC1); à INPUT ‘';C$ @ NEXT I à GOTO 40 
530 ON ERROR GOTO 40 à FOR 1=0 TO N à T(1)=Z(1) à Z(1)=YCI) à YCI)=XCI) à NEXT 1 
540 T$=2S à Z$=Y$ à YS=XS 9 DESTROY X à DIM X(N) à INPUT ‘Nom du poly. ::;X$ à FOR 1=0 TO W 
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550 DISP 'a(';STR$(1);')='; à INPUT ‘';:X(1) à NEXT I à GOTO 40 

560 DISP 'CHS! @ FOR 1=0 TO N à XCI1)=-X(1) à NEXT I à XS='-'8X$ 9 GOTO 40 

570 INTEGER A,B @ INPUT ‘I=';1 @ IF 1>N THEN 570 ELSE CALL FRCXC1),A,B,10"(-8)) 

580 DISP USING 'K,A,K';A,!/1,B @ WAIT 2 à GOTO 40 

590 GOSUB 920 à FOR 1=1 TO N à X(1)=(-1)*(1+1)/1 @ NEXT I à X(0)=0 à X$='LOG' à GOTO 40 
600 GOSUB 920 à FOR 1=0 TO N à X(1)=1/FACT(I) à NEXT 1 à XS='EXP' @ GOTO 40 

610 GOSUB 920 à DESTROY X à DIM X(N) à FOR 1=1 TO N STEP 2 à XC13=C-1)"1P(1/2)/FACT(1) 
620 NEXT 1 à X$='SIN' à GOTO 40 

630 GOSUB 920 à DESTROY X à DIM XC(N) @ FOR 1=0 TO N STEP 2 @ X(1)=(-1)*IP(I/2)/FACT(I) 
640 NEXT 1 @ X$='COS' @ GOTO 40 

650 GOSUB 920 à DESTROY X à DIM X(N) @ FOR 1=1 TO N STEP 2 à X(1)=1/FACT(I) à MEXT 1 
660 X$='SH' à GOTO 40 

670 GOSUB 920 à DESTROY X à DIM X(N) à FOR 1=0 TO N STEP 2 à X(1)=1/FACT(I) à NEXT 1 
680 X$='CH' à GOTO 40 

690 CS=XS à XS=YS à Y$=2$ 9 Z$=T$ à T$=C$ à FOR 1=0 TO N @ EC(I)=X(1) à X(1)=Y(1) 

700 Y(1)=2(1) à Z(1)=T(1) à T(I)=E(1) à NEXT 1 @ GOTO 40 

710 CS=TS à T$=2$ à Z$=Y$ à YS=XS à X$S=CS à FOR 1=0 TO N à E(1)=T(1) à T(1)=Z(1) 

720 Z(1)=X(1) @ X(1)=E(1) @ NEXT 1 @ GOTO 40 

730 C$=X$ à X$=YS à Y$=CS à FOR 1=0 TO N à E(1)=X(1) à X(1)=YCI) à Y(1)=EC1) à NEXT 1 à GOTO 40 
740 GOSUB 920 @ INPUT ‘'a=';A$ à S=1 à X(0)=1 à FOR I=1 TO N 

750 S=S*(VAL(AS)-1+1) @ X(1)=S/FACT(I) à NEXT I @ X$="(1+X)"("&AS$&")" à GOTO 40 

760 DISP 'Clx' @ FOR 1=0 TO N @ X(1)=Y(I) à Y(1)=2Z(1) @ Z(1)=T(1) 

770 NEXT 1 à X$=Y$ àQ Y$=2$ à Z$=T$ à GOTO 40 

780 GOSUB 920 à DESTROY X @ DIM XCN) à FOR 1=1 TO N STEP 2 à X(1)=(-1)"IP(I/2)/I à NEXT 1 
790 X$='ATAN! @ GOTO 40 

800 GOSUB 920 à DESTROY X @ DIM XC(N) à FOR 1=1 TO N STEP 2 à X(1)=1/1 à NEXT 1! 

810 X$='ATH! @ GOTO 40 

820 GOSUB 920 à DESTROY X à DIM X(N) à S=1 à X(1)=1 @ FOR 1=3 TO N STEP 2 

830 S=S*(1-2)/(1-1) à X(1)=S/I à NEXT 1 @ X$='ASIN! à GOTO 40 

840 GOSUB 920 à DESTROY X à DIM XCN) à S=1 @ X(1)2=1 à FOR 1=3 TO N STEP 2 

850 S=S*(1-2)*(1-1) @ XC(1)=(-1)"IP(1/2)*S/1 @ NEXT 1 @ X$='ASH! @ GOTO 40 

860 GOSUB 920 à RESTORE 880 à 1F N>10 THEN DISP 'WRN: N>10' à BEEP à WAIT 2 4 GOTO 40 
870 FOR 1=0 TO N à READ X(1) à NEXT 1 à X$='TAN' à GOTO 40 


890 GOSUB 920 à RESTORE 910 à IF N>10 THEN DISP 'WRN: N>10' à BEEP à MAIT 2 à GOTO 40 
900 FOR 1=0 TO N à READ X(1) à NEXT 1 à X$='TH' à GOTO 40 


SREIIIS====SSSSSSSSSSSSSSSSSIIESIEIESSSSSSSSSSSESIESSEESSSSSSSSSE 

920 T$=Z$ à 2$=YS à YS=XS à FOR 1=0 TO N à T(I)=Z(1) @ Z(1)=Y(I) à YCI)=XC1) à NEXT 1! 
930 RETURN 

ŒEZSSSSSSSSSSSISISISISSIEISEIZISSS=SSSSSSSSSSESESEESZSEESSESSSSSESSES= 


940 SUB FR(G,B,0,P) 

950 H=G à M=INT(H) à B=M à O=1 à A=1 à 1F NOT FP(ABS(G)) THEN 970 

960 H=1/(H-M) à M=INT(H) @ U=B*M+A @ A=B à B=U Q F=0*M+D à D=0 à O=F à 1F ABS(G-U/F)>P THEN 960 
970 END SUB 


tete he he he he he he ee ee eee ee eee re ro eo oo ee oo eee ee eo roro or or oo eo ee eo or or ee dr 


HP71: TELLEMENT COMPLEXE 
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10 ON ERROR GOTO 20 à PURGE KEYS 

20 COPY CX TO KEYS à OFF ERROR 

30 GDISP CHR$(É2)&CHRS(6S )ECHRS(127)ECHRS(ÉS)ECHRS(34) à WINDOW 3 à CFLAG 5,6 à USER ON 
40 DELAY O à DEGREES à STD à LC OFF 


SSSITIIZIIIIESS= === SSSSSSSSSSSEIIIEIEISSSSSSSSSSSESSSS==SsSSSSSSSSSS 


50 'SHOW': DISP X$ à STOP 


SSSSSSSZSSSZSIIEEZISISESESSSSSSSSSSSSSESEESSSSSSSSSSSSSSSSSSSSSSSEE 
60 :SOUS': SFLAG 6 @ ‘ADD': GOSUB ‘PILE! 
70 X=VALCYSLJ-1,J-1]8Y$[J+1])+(-1*FLAG(É)+NOT FLAG(6))*VAL(XS[1-1,1-1]8X$C1+1)) 
80 A=(SGN(X)+2)*(X#0)+(X=0)*3 
90 XS=STRS(VAL(YS[1,J-2])+(-1*FLAG(6)+NOT FLAG(6))*VAL(XS[1,1-2]))&'- +1 LA,AJ&'i'&STRS(ABS(X)) 
100 CFLAG 6 à GOTO 160 


110 ‘DIV': SFLAG 6 @ 'MUL': GOSUB ‘PILE! 

120 A=VAL(XS[1,1-2]) @ C=VAL(YS[1,J-2]) à B=VAL(X$(1-1,1-1]&X$[1+1]) 
130 D=VAL(Y$[J-1,J-1]8&Y$[J+1]) @ IF FLAG(6) THEN 440 

140 X=B*C+A*D Q E=(SGN(X)+2)*(X#0)+(X=0)*3 

150 X$S=STRS(A*C-B*D)&'- +'[E,E]&'i'&STRS(ABS(X)) 

160 Y$=2$ à Z$=T$ à GOTO ‘SHOW! 


EZSSSSSSSSSSSITIIZZIZISSESSSSSSSSSSSSSSSSSSSSSSEES=SESSSSSSSSssSSSZ= 


170 'ENTER': GOSUB 'PILE' Q T$=2$ Q Z$=Y$ à Y$=X$ à SFLAG 5 à GOTO ‘SHOW! 


180 'ECH': GOSUB 'PILE' @ A$=X$ à X$=Y$ à Y$=A$ à GOTO ‘SHOW! 


210 *STO': GOSUB "PILE! 

220 USER à INPUT 'STO !;A$ à USER 

230 ON POS('YZT',A$)+1 GOTO 220,240,250,260 
240 YS=X$ à GOTO "SHOW! 

250 2$=X$ à GOTO SHOW! 

260 T$=X$ à GOTO ‘SHOW! 


RRSSSSSSSSSSSSSSSSSSSSSESEEE=Z==22=222222222S=5S=2S2S=22222222222 
270 'RCL': GOSUB "PILE! 

280 USER à INPUT ‘'RCL ';A$ à USER 

290 ON POS('XYZT',A$)+1 GOTO 280,300,310,320,330 

300 A$=X$ à GOTO 340 

310 A$=Y$ à GOTO 340 

320 A$=Z$ à GOTO 340 

330 AS=TS 

340 T$=2$ à 2$=YS à Y$=X$ à X$=AS à GOTO SHOW! 


350 'MOD': GOSUB ‘PILE! 

360 A=VAL(XS[1,1-2]) à B=VAL(XSII-1,1-1]8X$(1+1]) 

370 DISP CHR$(124)&'z'&CHRS(124)8'=!; SQR(A"2+B"2) 9 WAIT 3 Q DISP CHRS(16)8&'=! ;ANGLECA,B); 'Deg' 
380 WAIT 3 @ GOTO ‘SHOW! 
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400 'BAR': SFLAG 6 à 'CHS': GOSUB ‘PILE! 
410 E=C(SGNÇ(VAL(XS[1-1,1-118&-11))+2)*(VAL(XS[1+1])#0)+(VAL(XS[1+1])=0)*3 
420 X$S=STR$S((-1*NOT FLAG(6)+FLAG(É))*VAL(XS[1,1-2]))&'- +1[E,EJ&XS[I] à CFLAG 6 à GOTO "SHOW! 


ŒSSSSSSSSSSSSSSSSESSSSSESSESSEIESEESSSSSSSSSSSSESSESSEEESSSSSEZ 

430 'CLX': GOSUB 'PILE' à X$=Y$ à Y$=2$ à Z$=T$ à GOTO ‘SHOW! 

440 SHORT 1,J @ I1=(C*A+D*B)/(A"2+B"2) à J=(D*A-C*B)/(A*2+B"2) à E=(SGN(J)+2)*(J#0)+(J=0)*3 
450 XS=STR$S(1)&'- +'[E,E]&'i &STRS(ABS(J)) à Y$=2$ à Z$=T$ à CFLAG 6 à GOTO 'SHOW' 


SSSIIIISSEZ==ES=====S====SSSSSSSSSSSSISSESSS=S==SS==S==SSsssssssssSS 
460 'PILE': 1F DISP$='' THEN CFLAG 5 à GOTO 490 ELSE 1F FLAG(5) THEN CFLAG 5 à GOTO 480 
470 T$=Z$ à Z$=Y$ à Y$=-X$ 
480 X$=DISPS 
490 IF X$='! THEN X$='0+i0" 

500 IF Y$='! THEN Y$='0+i0! 

510 I=POS(X$,'i!) à J=POS(YS,'i!) 

520 IF 1<3 THEN ON 1+1 GOTO 530,540,550 ELSE 560 
530 X$=X$&'+10' à GOTO 560 

540 X$='0+!8X$&' 1! [LEN(XS),LEN(XS)] @ GOTO 560 
550 X$='0'8XS 

560 1F J<3 THEN ON J+1 GOTO 570,580,590 ELSE 600 
570 Y$=Y$&'+i0' @ GOTO 600 

580 Y$='0+!&Y$ a GOTO 600 

590 YS='0'&YS 

600 I=POS(XS,'i!) à J=POS(YS,'i!) à IF X$[1+1]='! THEN XS=XS&'1! 
610 1F Y${J+1]='! THEN YS=Y$&'1 

620 RETURN 


ŒESSS=SSSSSSSSSSSSISSSSSSSSSSSSSETSISESSSSSSSSSSSSSSSSSSSSSSSSESSE 
630 ‘FIN': USER à INPUT ‘FIN: Oui ou Non :';A$ à USER à IF A$#'0' THEN ‘SHOW! 
640 PURGE KEYS à WINDOW 1 à END 


Re ee ee ee eee ee ee ee er eee eee eee eee eee ee er ee ee ee 0e ee er er 


UN BRIDGE CE SOIR ? 


DESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSISSSTISSSIIIZSEIZIZIZSZISESESEZES==ESE=SS= 
5 SUB MAIN 
10 DESTROY R1 @ OPTION BASE O0 à DIM R1(38) 
20 FOR A=0 TO 4 à FOR R=0 TO 4 à FOR D=0 TO 4 à FOR V=0 TO 4 
40 IF A+R+D+V>13 THEN 70 
50 S=4*A+3*R+2*D+V 


eee ee ve he ee ee ee eee eee re er er r  rr r r 
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HP-71 ASSEMBLEUR 


SERGE VAUDENAY 
SERGE VAUDENAY 
LAURENT ISTRIA 


MICHEL MARTINET 


36 


37 


40 


46 


ASSEMBLEUR: STOP, ENCORE 


GANYMEDE (OTHELLO) 


DES DATES, ENCORE DES DATES... 


LE COIN DES LHEX 
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ASSEMBLEUR: STOP, ENCORE 


Et si on passait aux choses sérieuses. 

Coucou, c'est encore moi. 

Vous vous demandiez ce que j'était devenu 
pendant tout ce temps, avais-je enfin été 
renvoyé du club, avais-je enfin été censuré ? Et 
bien non. J'était tout simplement en vacances, 
retranché chez moi pour vous pondre de nouveaux 
programmes. 

Tenez vous bien ! Je me suis lancé dans 
l'assembleur. Et oui, j'ai moi aussi eu le 
plaisir d'avoir des memory Lost (au fait, 
quelqu'un a-t-il réussi à traduire ce message 
d'erreur, ou est-il condamné à rester 
anglais???) et aux anomalies d'un 71 planté... 
Je dirai à ceux qui n'osent toujours pas 
assembler en coeur que mis à part Les problèmes 
de plantage, l'assemblage sur 71 est 
incomparablement plus souple que celui sur 41. 
J'ai tout d'abord eu La surprise de voir mes 
premiers programmes tourner du premier coup. 
Mais cela n'a pas toujours été Le cas, par la 
suite. 

Je me suis attaqué à Un programme d'OTHELLO. 
Pour cela, il m'a fallu faire l'utilitaire dont 
je vais vous parler aujourd'hui. Le problème que 
j'ai rencontré était de dépister les erreurs 
d'assemblage d'un programme. Une méthode bien 
connue consiste à faire un fichier listing et de 
Lancer La commande S/\"* avec l'éditeur de 
texte. Mais j'ai eu un problème de mémoire, car 
le fichier Listing est baucoup plus grand que le 
fichier source, ce qui n'est pas peu dire... 
J'ai donc écrit un Lex qui permet d'arrêter 
l'assemblage sur un message d'erreur en faisant 
bip, et d'attendre une pression de touche pour 
continuer. Je tiens à vous avertir cependant que 
ce Lex est à utiliser sous toute réserve, car il 
m'est errivé, plusieurs fois, de voir un 
assemblage s'arrêter sur un memory Lost. Je ne 
sais pas si c'est à cause de ce Lex, mais je 
vous conseille tout de même de garder une copie 
de vos fichiers. 

Le principe du programme est simple. Il “fait 
semblant" d'intercepter Le poll de traduction 
PTRANS, qu'utilise l'assembleur pour 
éventuellement demander La traduction d'un 


message d'erreur, et il affiche Le message avant 
l'assembleur en respectant Le DELAY et en 
envoyant un bip grâce à La routine MFWRN. Il 
suffit alors de mettre un DELAY infini pour que 
le programme s'arrête et attende une pression de 
touche. L'assembleur affichera alors son message 
suivi du numéro de Ligne où il y a eu erreur, et 
l'assemblage reprend. Oui, me direz-vous, mais 
comment reconnaitre que c'est bien l'assembleur 
qui a envoyé Le poll ? Avant de Lancer un 
assemblage, on armera Le flag 63 qui servira a 
mettre Le Lex en action, et on Le désarmera 
ensuite. Pour ne pas avoir tous ces ennuis de 
configuration, nous allons définir un mot forth 
qui remplacera ASSEMBLE. 


DECIMAL 20 STRING SCT "“ SFLAG 63 @ DELAY INF" 
SCT S! ( crée la chaine de configuration.) 

O STRING NULL ( fait une chaine NULL$ qui ne 
touche pas au PAD.) 

: ASS ( str--- ) NULL LISTING S! ( ne fait pas 
de fichier LISTING.) 

SCT BASICX ( configure.) 

ASSEMBLE ( assemble Le fichier dont La chaine 
est dans La pile.) 

M CFLAG 63 à DELAY 0,0 à BEEP" BASICX «( 
déconfigure.) 


. 
. 


Vous devrez désormais utiliser ASS au lieu de 
ASSEMBLE  ( remerciez-moi je vous épargne 5 
pressions de touches). Entrez maintenant le 
petit LEX Listé ci-après, n'oubliez pas 
d'éteindre et de rallumer votre 71 pour rendre 
le Lex actif, si vous n'avez fait aucune erreur. 
Sinon, n'hésitez pas à tout détruire. J'espère 
qu'il vous rendra plein de services, et plein de 
memory Lost, car si je suis Le seul à en 
profiter, he ben c'est pas juste. 

N'oubliez pas d'adresser vos réclamations au 
journal ou d'envoyer des insultes anonymes. 

A bientot, (peut-être). 


Serge Vaudenay 





PTRANS 
FLGREG 


MFWRN 


HERE 


POLHND 


ITRANS 


WARN 


—————————————Z—EE 


LEX 

ID 

MSG 
POLL 
ENDTXT 
EQU 
EQU 


* 


EQU 
* 


EQU 
* 


LC(2) 
* 
?B=C B 
GOYES 
RTNSXM 
LC(5) 
CDOEX 
C=DATO 
CDOEX 
C=C+C 
Goc 
RTNSXM 
P= 


*+ * + 


C=RO 
DO=(5) 


* 


* 


A=DATO 
DO=A 
DATO=C 
DO=D0+ 
A=R2 
DATO=A 
GOSBVL 
DO=(5) 
C=DATO 
DO=C 
C=DATO 
RO=C 
DO=D0+ 


"ASSERR' * Nom du LEX 


#E1 
0 
POLHND 


#EF 
#2F6E9 


#093BC 


#2FB93 


PTRANS 


ITRANS 


* 


* 


* 


* 


RE | 


à vous de choisir l'id 
aucun message 

poll actif 

fin du "préambule" 
valeur du poll pTRANS 
adresse de stockage 
des drapeaux (cf IDS 1) 
routine d'affichage 
d'avertissement 
adresse de la variable 
forth HERE 

traitement si poll 
PTRANS 


CFLGREG)+15 * va voir Le flag 63 


WARM 


14 


HERE 


16 


W 
MFWRN 
HERE 
A 


M OH #4 6 #4 + # * 


flag levé? 

non, fin 

faire bip, respecter 
Le DELAY, ne pas 
toucher ERRN, pas de 
préfixe 

CWRN: ou WRN:) (cf doc 
sur MFWRN, IDS 2 ou 3) 


* met l'adresse de fin 
* du dictionnaire forth 
* dans DO 


sauvegarde de RO et R2 


* affichage de l'erreur 
* remet HERE dans DO 


récupere RO et R2 


C=DATO W 

R2=C 

RTNSXM * fin, on fait comme si 
* * rien ne s'était passé 


nm mm mm mm mm mmmm mm mmmm mm mm mmm mms mm 


GANYMEDE (partie 1) 


C'est encore moi! 

Cet article est le premier d'une série qui 
décrira mon programme d'othello. Ce programme 
Cécrit en assembleur, forth et basic) s'appelle 
Ganymède. Son intérêt est qu'il montre Les 
avantages du Forth et des primitives Forth. Il 
pourra servir de modèle ou d'exemple au projet 
pop-corn pour l'année prochaine.(NDLR: Si tout 
va bien). Nous allons, aujourd'hui, étudier La 
manière dont Ganymède stocke Le damier. Un 
damier, en Forth, sera crée par: 

CREATE nom-du-damier 16 ALLOT 

C'est donc une zone de 16 octets. 

Les huit premiers contiennent une configuration 
de bits indiquant Les cases vides (bit=0) et Les 
cases pleines (bit=1). Toutes Les cases des 
bords sont vides, car seules Les 6xé cases du 
centre sont disponibles. 

Les 8 octets suivant contiennent une 
configuration de bits indiquant Les pions 1 
(bit=1) et Les pions 0 (bit=0) des cases occupées. 
Le bit de poids faible de chaque configuration, 
c'est à dire Le bit de poids faible du premier 
quartet dans La mémoire correspond à La case 00 
de l'échiquier. Le bit de poids faible du 
deuxième quartet correspond à La case 10 (en 
héxadécimal). 


Je vous donne donc rendez-vous au prochain 
article pour décrire Les primitives de 
manipulation de case. Je conseille aux 
débutants, et même aux autres d'essayer d'y 
réflechir, et de faire une primitive pour aller 
chercher Le contenu d'une case, et pour mettre 
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quelque chose (ou rien) dedans. faudra prendre cette version pour avoir Les 
A bientot. mêmes adresses dans Le dictionnaire. Prenez donc 
un dictionnaire vide, et  assemblez les 
primitives suivantes. 
FORTH 

Pros ere vremeness WORD  'CJa' * (adr c ---n) 
TLLETITTLI : * nscontenu de La case 

snnnonsonmossesee h * (-1:pioni O:vide 
6IIIIIIIII * * 1:pion0) 

shséfestesseperte C=DAT1 A * dépilage de c 
SL LL TA TT T D1=D1+ 5 

sRFennéreneesente A=DAT1 A * dépilage de adr 
&1I1IIol*I III * * (adresse du tableau) 

tonsteenenseesses GOSUB CJa * calcul dœn 
3111I*Iol III GOSUB GTC 

rhtiaernnseeesees DATI=C A * empilage den 
211111111II RTNCC * fin. 

mms... Re ee ee fe ee eee ee eee ee ee ee eee ee ee ee ee ee ee ee dede 
TISlIIIIIII données A[A] adresse du tableau 

PAPAS Peer C[B] numéro de case 
0111111111 sortie ALA] inchangé 

RÉF netatereesese CA] valeur de La case 

01234567 (O:vide 1:pion0 3:pion1) 

DIW] masque 

= case 10 utilise Al[14:15] C[W] D[IW] 


0 niveau de sous programme 
Donne Le contenu d'une case 


Serge Vaudenay. Re ee re ee re re ee ee ee ee eee ee ee eo eee 
CJa AD1EX * fabrique un "masque! 
* * dans D 
PPRentteteaseneienenessene seen anse ekeesesses ASLC 
ASLC 
A=C B 
ASRC 
GANYMEDE (suite). C=0 W 
C=C+1 VW 
CJai A=A-1 S 
GOoC CJa2 
Bonjour, me revoila. C=C+C B 
Je vous ai parlé, Le mois dernier, de mon GOTO CJa1 
programme d'othello, et nous avons défini un CJa2 ASRC 
tableau de pions. Avant de poursuivre, je dois CJa3 A=A-1 S 
dire que mon programme a fini bon dernier au GoC CJa4 
concours de l'OI à cause d'une erreur dans la CSL W 
fonction d'évaluation. Mais nous n'en sommes pas CSL W 
encore Là. Je suppose que vous avez tous GOTO CJa3 
réfléchis sur Le problème de La semaine CJa4 D=C W * masque construit; 
dernière: faire les primitives CJQ et CJ!. Voici C=DATI W * recherche du contenu 
ma solution. Ce n'est pas forcément la * * de La case 
meilleure, mais pour La suite du programme, il . * (vide-occupée) 
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CJa5 


GTC 


cJ11 


A=A+1 
A=A+1 
A=A+1 
?A#C 
RTNYES 
C=0 
C=C-1 
RTNCC 


WORD 
# 


* 
C=DAT1 
# 

* 

ST=1 
?C=0 
GOYES 
ST=0 
ST=0 
C=C+1 
GONC 
ST=1 
D1=D1+ 
C=DAT1 
D1=D1+ 
A=DAT1 
D1=D1+ 
C=C+1 


A 
A 


‘CJ!! 


A 


OU > U1 > U1 © 


+ + # *# + 


case vide? 

oui, n=0, CJ45 et fin 
non, n>0 C1 au minimum) 
recherche du contenu 

de La case (pion0-pion1) 


* pion0? 
* oui, n=1, CJa5 et fin 


non, n=3 


* mise en place du 
* résultat 


* fin. 
* transforme 0 en 0, 1 
* en -1, et 3 en 1 


* 


* 


* 


(adr c n ---) remplie 
la case c du tableau 
adr avec n 

dépile n en STO et ST1 
(STO=bit de contenu, 
STi=bit de remplissage) 


dépile adr en A[A] 


dépile c en C[B] 


si c=FF (case 


CJ12 


GONC 
RTNCC 
C=C-1 
GOTO 


cJ12 


B 
CJIC 





imaginaire), fin. 


Re ee he de ee ee ere ve eee eee re re ee re ee eo he ee ee ce 


données A[A] adresse du tableau 
C[B] numéro de case 
STO bit de contenu (pion0-pion1) 


sortie A[A] inchangé 


utilise A[14:15] C[W] DIW] ST1 


0 niveau de sous-programme 
ee de de he ee fe ee ve ele me ee ee ee fr rer fe or le eee fe fe le fe er ee er fe fe role ce ee ee de de 


CJ! 
CyJ!C 


CJl4 


CJ15 
CJ16 


CJ17 


CyJ18 


CJ19 


ST=0 
AD1EX 
ASLC 
ASLC 
A=C 
ASRC 
c=0 
C=C+1 
A=A-1 
GOC 
C=C+C 
GOTO 
ASRC 
A=A-1 
GOC 
CSL 
CSL 
GOTO 
?ST=0 
* 
GOYES 
C=-C-1 
D=C 
C=DATI 
?ST=0 
GOYES 
C=C&D 


* 


* 


DAT1=C 
ADIEX 
RTNCC 
C=C!D 


DAT1=C 
D1=D1+ 


1 


CyJ15 


CyJ!4 


CJ17 


cJlé 


CJ18 
W 
W 
W 
1 
cJ19 
W 


* 


* 


force un remplissage 
construit un “masque! 


* inverse Le masque si 
* on doit vider une case 


+ + # * + 


# # # * 


masque terminé 


remplissage de case? 
oui, CJ19 

non, met le bit de 
remplissage de La case 
à 0 


case vidée, fin. 

met Le bit de 
remplissage de La case 
à 1 
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C=DAT1 W 
?ST=1 0 * pion1? Fait un “masque 
* * de contenu!" (inverse 
* * Le masque pour un pion0) 
GOYES CJ13 * oui, CJ13 et fin 
CDEX W * non, 
C=-c-1 W * inverse Le masque 
C=C8&D W * met un pion0 
GOTO CJ110 * CJ110 et fin 
cJ13 C=CID W * 


met un pioni 
CJ110 DATI=C W 


D1=D1- 16 

AD1EX 

RTNCC * fin. 

WORD  'RESET'! * (adr ---) initialise 
® * un tableau adr 
A=DAT1 A * dépile adr 

D1=D1+ 5 

AD1EX 

C=0 W * met tous les bits de 
: * remplissage à 0 
DATI=C W 

AD1EX 

RTNCC * fin. 


Voila, si tout va bien, vous devez avoir les 
équivalences suivantes: 

CJa EQU #2FCD9 

CJ! EQU #2FDAB 

CJ!C EQU #2FDAE 

GTC EQU #2FD4B 

La primitive RESET a pour effet de vider un 
tableau. 

-Pour créer un tableau, faites: DECIMAL CREATE 
(nom) 16 ALLOT (nom) RESET 

-Pour voir Le contenu d'une case: (nom) (case) 
CJa . 

-Pour remplir une case: (nom) (case) (contenu) 
CJ! 

Ceux qui ont eu Le courage de désosser le 
listing se sont surement heurtés aux termes 
"remplissage" et "contenu". J'ai appelé bits de 
remplissage Les 64 premiers bits d'un tableau 
disant si une case est vide, et bits de contenu 
les 64 bits suivant du tableau, définissant Le 
contenu des cases non vides (voir épisode 
précédent). 

Quand vous aurez bien compris Les principes de 
ce programme, et La philosophie du FORTH, vous 
pourrez faire une primitive de test de validité 
d'un coup (un coup nul, ou "passe", se note FF). 
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Je vous proposerai ma solution la prochaine fois. 
Je vous propose également, ce mois-ci, La 

partie BASIC du programme. Bien sur, vous ne 
pourrez pas l'utiliser tant que vous n'aurez pas 
Le mot FORTH "GO" qui est Le coeur du programme. 
Pour finir, voici La Liste des primitives que 
vous aurez La prochaine fois: 

-?CANI (adr c j --- b) teste La validité d'un 


coup 
-PUTC (adr c j ---) joue un coup 

“LIST (adr j --- Liste) donne une Liste de coups 
jouables 


Tous à vos claviers. 


Serge Vaudenay 


DES DATES, ENCORE DES DATES, TOUJOURS DES DATES. 


“Bis repetita placent" dit Le proverbe. 

Et bien, puisque l'entendement général semble 
prétendre que Les choses répétées plaisent, 
répétons-nous. Dans Le numero 27 de  JPC, 
Monsieur Xavier Bille nous faisait part de son 
programme de calcul sur Les dates. Celui-ci 
étant écrit en BASIC, il prenait une place 
relativement importante dans La mémoire de 
titan. Or, de longue date, j'avais envie 
d'écrire Le LEX capable d'en faire autant. Il 
n'en fallait pas plus pour me décider; "doublé 
sur un terrain qui m'était cher, je ne pouvais 
l'accepter. 

C'est ainsi que je me mis en quête des routines 
assembleur  succeptibles de me faciliter Le 
travail. Le HP71 acceptant des entrées de dates, 
il était forcé qu'il Les puisse traiter. Un 
instant de recherche me permit de découvrir 
YMDDAY, routine permettant La conversion d'une 
date dont Le quantième, Le mois et l'année sont 
stockés respectivement dans D, B et A en un 
entier dans C qui représente Le nombre de jours 
écoulés entre La date et Le premier janvier de 
l'an 1. Nantis de cette routine éminemment 


importante, je me mis à concevoir ce LEX. 

Le mode d'utilisation de ses fonctions est fort 
simple; si l'on considère D1 et D2 comme étant 
deux dates exprimées soit sous La forme 
jj-mmasaa soit sous La forme mm.jjaaaa, (nous 
verrons plus tard comment passer d'un format à 
l'autre), alors, les opérations se font ainsi: 
-DDAYS(D1,D2) donne Le nombre de jours écoulés 
entre Les dates D1 et D2 

-DOW(D1) rend un nombre correspondant au jour de 
la semaine de D1 (0 pour Dimanche, etc) 

-DOW$(D1) donne Le jour dans La semaine de D1 

-DMY permet Le passage dans Le format européen: 
jj.mmaaaa 

-MDY permet Le passage dans Le format américain: 
mm. j jaaaa 


Je n'ai pas pu écrire Une routine DATE+ qui 
aurait permis d'ajouter un certain nombre de 
jours à une date. En effet, il semble que La 
routine DAYYMD (devinez ce qu'elle fait) soit 
“bugger". 

Les résultat obtenus en appliquant Les formules 
utilisées dans La ROM du 71 ne sont valables que 
pour des dates comprises entre Le 15 octobre 
1582 et Le 31 décembre 9999. Pourquoi une date 
de départ si précise, me demandrez-vous? La 
reponse est fort simple 

Or donc, en ces temps reculés, où Les grands se 
battaient à coups d'arsenic et de duels, et où 
les faibles n'avaient droit qu'à La massue, 
vivait en sa ROM (excusez-moi, ROME, déformation 
professionnelle) merveilleuse, un bon pape. Et 
ce pape, non content d'avoir une mule, avait une 
passion: L'astrologie-nomie( à l'époque, on ne 
faisait pas La différence) 

Et ce pape avait remarqué que des années de 365 
jours avaient pour conséquence de nous faire 
perdre du temps par rapport au soleil. Il 
décidät donc, bon gré, mal gré, d'ajouter un 
jour supplémentaire, disons, tous Les 4 ans. 

Mais, en poussant plus avant ses calculs, il 
s'aperçut qu'au bout de quelques temps nous nous 
mettrions à gagner du temps sur La course de Rä. 
La décision fût alors prise de complèter La Loi 
énoncée plus haut: elle ne s'appliquerait que si 
ces mêmes dates divisibles par 4 ne l'étaient 
pas par 100. 

Mais, Le mal était fait. Nous avions dix jour 
de retard sur Le soleil.C'est ainsi que Les gens 





s'endormir Le 4 ocobre 1582, et se réveillèrent 
le 15 octobre, ayant ainsi rattrapés Les dix 
jours. Les seules personnes à se plaindre furent 
Les femmes qui décrèterent qu'elles avaient 
vieilli de 10 jours en une nuit. C'est ainsi 
que nous vivons maintenant sous Le calendrier 
Grégorien, du nom de ce ci-gentil pape Grégoire 
VII. Aux alentours de La fin du 19éme siécle, 
une nouvelle clause fût par ailleurs ajoutée, 
décrétant que si une date était divisibla par 
400, elle serait alors aussi bissextile (de bis- 
et sextus, car sous Le calendrier Julien, le 
sixième jour avant Les calendes de mars était 
doublé tous Les 4 ans.) 

Pour Les explications relatives au 
fonctionnement du programme, reportez-vous au 
listing source. 

Voilà, j'éspère que ces quelques instants 
d'histoire du calendrier vous auront intéréssés 


L.ISTRIA (S.1.G.#3,P.P.C.#3) 


P.S. je tiens à remercier ici un vieil emi à 
moi, monsieur A. Daudet pour m'avoir  prété 
quelques passages de ses “Lettres de mon 
moulintt. Qu'il Lui soit témoigné toute ma 
gratitude. 


LEX "DATELEX! 


1D #E1 
MSG 0 
POLL O0 


ADHEAD EQU #181B7 
ARGERR  EQU #08F19 
CSLC4  EQU #18438 
D=AVMS  EQU #1A460 
FNRTN4&  EQU #0F238 
HDFLT EQU #1831B 
IDIVA EQU #OEC6E 
NXTSTM EQU #08A48 
OUTELA EQU #05303 
POPIN  EQU #0BD1C 
SFLAG* EQU #135F3 
SFLAG? EQU #1364C 
TBLJMC EQU #02426 
YMDDAY EQU #13304 
fLDATE EQU -27 
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———— 2 —— a ———————— .———————— —. ———— 


WEEKS 


DELTA 


POS 


FIN 


FIN2 


WEEK 
WEEKE 


TE OS PAS AE 


ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
ENDTXT 
NIBHEX 
ST=1 
GOTO 


DELTA 
#F 
EUR 
#) 
WEEKS 
#F 
WEEK 
#F 
AME 
#0 
"DDAYS'! 
52 
"DMY! 
53 
1DOWS! 
54 
‘DOW! 
55 
‘MDY! 
56 


811 
2 
WEEKE 


NIBHEX 8822 
GOSUB FLTDBO 
D1=D1+ 16 


Paramètre suivant 


RO=C 
# 


GOSUB 
C=RO 
?C>A 
* 
GOYES 
A=A-C 
GOSBVL 
A=-A-1 
* 
GOTO 
C=C-A 
A=C 
GOSBVL 
C=A 
GOVLNG 
NIBHEX 
ST=0 
GOSUB 
A=A-1 
* 


conversion de 


* 
* Sauvegarde de 
* 
* première date 


FLTDBO 

4 * Attention, si 
* superieur à À 

POS 


HDFLT 


la 
la 


C est 


S * IL faut rétablir le 


* signe 

FIN 

W 

W 

HDFLT 

W 

FNRTN4 

811 

2 

FLTDBO 


A * Nécéssaire pour 


* obtenir Le bon jour de 


DOWTXT 


LUN 


MAR 


MER 


JEU 


VEN 


SAM 


* 

P= 
C=0 
LCHEX 


GOSBVL 
* 


* 
?ST=1 
GOYES 


CSRC 
C=0 
C=! 
CSRC 
* 


* 


GOTO 
D1=D1+ 
ADIEX 
R1=A 

* 
ADIEX 


GOSBVL 
* 


* 


REL(3) 
REL(3) 
REL(3) 
REL(3) 
REL(3) 
REL(3) 
REL(3) 
LCASC 
P= 
GOTO 
LCASC 


GOTO 
LCASC 


GOTO 
LCASC 


GOTO 
LCASC 


GOTO 
LCASC 
P= 


0 
A 
7 
IDIVA 


DOWTXT 


xs 


FIN2 


TBLJMC 


la semaine 


* MOD(Nombre de jour 
* depuis Le 1er janvier 
* 0001,7) 


* Si flag(2)=1 alors il 
* faut convertir en une 
* chaine de caractères 


Le nombre tient dans 


* un seul digit ( de 1 a 
* 7) 


* R1CA)= début de La 
* pile de données (hi mem) 


* Su-per-be 1!!! un 


* modèle de CASE OF de 
* poche 
DIM 
LUN 
MAR 
MER 
JEU 
VEN 
SAM 
‘LUNDI! 
9 
M10 
‘MARDI! 
9 
M10 
"MERCREDI! 
15 
M16 
"JEUDI" 
9 
M10 
"VENDREDI! 
15 
M16 
"SAMEDI 
11 





D1=D1- 
GOTO 
DIM LCASC 
P= 
M16 D1=D1- 
GOTO 
M10 D1=D1- 


STORE  DAT1I=C 
* 


* 


GOSBVL 
ST=0 
P= 


GOVLNG 
* 


* 


* 


12 

STORE 

‘DIMANCHE! 

15 

16 

STORE 

10 

WP * D1 à été restauré, on 
* écrit La valeur de C 
* sur La MATHSTACK 

D=AVMS  * Sans commentaires 


ADHEAD Et hop, on ajoute l'en 
tête et on sort par 
EXPR (ST=0 0, 


* précédemment) 


#+ # + 


Re de he ee eee eee eee ee ee fe eee ee eee ee ee ee re ee ee eee 


* FLTDBO 


* But: C'est La routine principale, elle permet 


de traduire un nombre en decimal flottant situé 
sur La MATH-STACK en une série de 3 nombres BCD 


situés dans A,B et D 
A contient l'année 
B contient Le mois 
D contient Le jour 


M + # # # * 


Per ee ee ee ee ee ee rl re ee ee ee 


FLTDBO GOSBVL POPIN 


LC(2) fLDATE 
SETHEX 
ST=0 0 


GOSBVL SFLAG?  * 
* 


GONC SO 
ST=1 0 

so C=B * 
* * 
?C=0 P * 
* * 
GOYES S1 
csLC 

s1 CSLC 
CSL 
D=C * 
* * 
* * 
* * 
P= L 


Routine machine de 


* test d'un drapeau 


On replace la date à 
analyser dans C 

Le jour du mois est-il 
inferieur a 10 ? 


Nombre de jour doit 
être écrit dans D, en 
BCD (décimal codé 
binaire) 


NON 


C=0 WP 


D=D-C W 
CSLC 
CSLC 
B=C W 
C=0 WP 
B=B-C W * Même chose pour Le 
* * mois dans B 
GOSBVL CSLC4 
=C W 
P= 3 
c=0 WP 
A=A-C W * Et pour l'année dans A 
?2ST=0 0 * On procède à 
* * l'actualisation du 
“= * mois et du jour 
GOYES NON 
BCEX A 
CDEX A 
BCEX A 
C=0 A 


Re ee eee ee er ro ee eee fee er ee re 


* C'est ici que commence La routine qui teste La 


*+ 


validité de La date. Elle doit vérifier 3 faits 


* differents: 

* La date est-elle située après Le 15 octobre 1582 
* Le nombre de jour dans Le mois est-il correct ? 
* Si 29 fevrier, l'année est-elle bissextile ? 


Re re ee eee ee rer eee ee ee 


argi 
SUITE 


P= 0 

LCHEX 1582 

?A>C A * Année correcte ? 
GOYES SUITE 

?A=C A 

GOYES TRAITE 

GOTO argerr 

LCHEX 12 

?2B>C B * Mois correct ? 
GOYES arg1 


LCHEX 07 
# 


* 


Problème de traitement 
du nombre de jour dans 
+ * Le mois 

?2B>C B 

GOYES 
LCHEX 2 

?2C=B B * Traitement du mois de 
L * février 

GOYES 
C=C-1 P 


* 
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—_ 


>JUIL  R1=A 


LCHEX 

* 
TEST ?D>C 

GOYES 


TEST 


TV DU OU — 


WW — 


B 
argerr 


GONC TERM 


FEVR LCHEX 
?D>=C 
GOYES 
GONC 

argerr GOVLNG 


TRAIÎTE LCHEX 
* 


* 


?8>C 
GOYES 
?B#C 
GOYES 
LCHEX 
?D<C 
GOYES 
GOTO 
* 

PROB  ?D>C 
GOYES 
C=B 
* 
R1=C 
R2=A 
c=0 
LCHEX 
SETDEC 
GOSBVL 
?8#0 


* 
* 


GOYES 
A=R2 
?A#0 
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29 

B 
PROB 
TERM 
ARGERR 
0010 


B 
>JUIL 
B 
argerr 
15 

B 
argerr 
>JUIL 


B 
argerr 
B 


# 


IDIVA 
A 


argerr 


* On trouve ici le 
* nombre maximum de jour 
* dans Les mois avant août 


REST 
TERM 
* Même chose, pour Les 
* mois à partir d'août 
EUR 
AME 


* Traite l'année 1582, 
* où commence Le SORTIE 
* calendrier grégorien 


WC 


* Le premier jour est Le 
* 15 octobre 1582 
* Jour impossible 


* Ici, la date est 
* forcemment un 29 février 


* Si l'année n'est pas 
* multiple de quatre, il 
* y a erreur 


GOYES 
LCHEX 
GOSBVL 
?B=0 
* 


* 


GOYES 
GOTO 
C=R1 
B=C 
A=R2 


GOVLNG 
* 


* 


* 


REL(5) 
REL(5) 
LC(2) 
GOTO 
REL(5) 
REL(5) 
LC(2) 
P= 
GOSBVL 
* 


* 


GOVLNG 
GOVLNG 
RTNCC 


REST 
400 
IDIVA 
A 


REST 
argerr 


YMDDAY 


WDC 
WP 
fLDATE 
SORTIE 
WDC 

WP 
fLDATE 
1 
SFLAG* 


NXTSTM 
OUTELA 


* Si l'année est 
* divisible par 400, La 
* date est valide 


* Routine de 

* transformation d'une 
* date en un nombre de 
* jour 


* On arme où l'on 
* désarme Le flag -27 
* suivant Le cas 








PROGRAMME D'OTHELLO 


10 CALL GANYMEDE 


Æ=SSSSSSSSISSEISSSSZSSSSSSSSESSSSSSSSSSS=SSSSSSSSSSESSSS=SSS=S=S=SS=S= 

20 SUB GANYMEDE ! ce programme ñrécessite La fonction KEYWAIT$ et un fichier FORTH adéquat 
30 WINDOW 3,17 à GDISP ‘' à DIM A$[132] 

40 FORTHX 'HEX ECH1 RESET' à LC OFF à OPTION ROUND NEAR 

50 N=4 Q T0=0 à T1=0 à F=0 

60 DISP ‘Tu commences(?)' 

70 ON POS('NO',KEYWAIT$)+1 GOTO 70,80,90 

80 F=1-F 

90 IF F THEN DISP ‘Je commence.' ELSE DISP ‘Tu commences.! 

100 FORTHX 'ECH1 SWAP INIT',F 

110 T=TIME @ ON 2-F GOTO 120,130 

120 FORTHX 'ECH1 32 1 PUTC!' à DISP ‘Je joue C5.' à N=N+1 

130 T1=T1+TIME-T @ T=TIME à D1=71 DIV 60 

140 TO=TO+TIME-T à T=TIME à DO=TO DIV 60 

150 GOSUB 360 

160 K$=KEYWAITS @ TO=TO+TIME-T à T=TIME à 1F TO DIV 60>D0 THEN DO=TO DIV 60 à GOSUB 360 
170 I=POS('-P/+ABCDEF##46#99! ,K$)+1 

180 ON 1 GOTO 160,430,350,340,380,200,200,200,200,200,200,160,190,160,160,420,160,160 
190 FORTHX 'ECH1 VIEW-ECH' à GOTO 160 

200 X=(NUM(KS)-64)*16 à DISP K$; @ INPUT !':Y 

210 CFLAG 5 à IF Y<1 OR Y>?6 OR FP(Y) THEN 160 

- coeur du programme: mot FORTH GO" 

220 TO=TO+TIME-T @ T=TIME @ DISP ‘Heum! Heum!'; à FORTHX 'GO',X+7-Y à R=FORTHI à DISP 
230 IF R=0 THEN DISP KS&STR$S(Y)&!' 222! @ GOTO 140 

240 N=N-NOT FLAG(5) à IF N=36 THEN 280 

250 IF R=255 AND FLAG(5) THEN 280 ELSE IF R=255 THEN DISP ‘Je passe.! à GOTO 130 

260 X=R DIV 16 @ Y=7-MOD(R,16) Q DISP ‘Je joue '&CHRS(64+X)BCHRS(4B+Y)&! .! 

270 N=N+1 à IF N=36 THEN 150 ELSE 130 

280 T1=T1+TIME-T @ GOSUB 360 à@ FORTHX 'ECH1 SCORE! @Q PO=FORTHI à P1=FORTHI à WINDOW 1,17 
290 V=IP(MAX(PO,P13*36/(P0+P1)+.5) à P=36-V 

300 1F P1=PO THEN DISP ‘Egalite: 36-36! 

310 IF P1<PO THEN DISP ‘Gn! gnl: "&STR$S(V)&! - 'ESTRS(P) 

320 1F P1>PO THEN DISP ‘Bravo: t&STRS(V)&! - 'ESTRS(P) 

330 K$=KEYWAITS 
340 WINDOW 1 à DISP ‘Au revoir.! à END 
350 SFLAG 5 à X=255 à Y=7 à GOTO 220 
360 DO=MOD(D0,100) à D1=MOD(D1,100) à A$=GDISP$ à WINDOW 3 à DISP USING "15X2D":0,2D!;:D0,D1 
370 WINDOW 3,17 @ GDISP AS[1,102]8&GDISP$[103] à RETURN 

380 FORTHX ‘ECH1 O LIST ECH1 O LVAL O ORDER! @ N=FORTHI 

390 IF N=0 THEN DISP Tu passes.' à WAIT 1 à GOTO 350 
400 C=FORTHI Q FORTHX ‘0 SWAP LCOL',N à DISP ‘Conseil :'&CHRS(64+C DIV 16)&CHR$S(55-MOD(C, 16)) 
410 GOTO 160 
420 OFF @ GOTO 140 
430 1=FORTHF 

440 IF 1>9 THEN DISP ‘Archi nul!!!' à GOTO 160 

450 IF 1>6 THEN DISP ‘Mauvais!' à GOTO 160 

460 IF 1>3 THEN DISP ‘Pas mal!' à GOTO 160 

470 DISP ‘Excellent!' à GOTO 160 
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LE COIN DES LHEX 


Au mois de juillet nous vous proposions cette nouvelle 
rubrique assembleur, tout content de pouvoir permettre à tous 
d'utiliser Les nouvelles fonctions basic que nous avions créées. Nous 
nous étions accordé sans prendre garde L'ID 113 (#71 en hexa) pour 
Hexiser tous nos Chefs-d'oeuvre. Mais voilà ! Dès La mi-septembre, HP 
Corvallis nous attribuait Le numéro 225 (#E1 en hexa). 


Si vous êtes possesseur de ces anciennes versions, il vous 
suffira de changer L'ID 113 contre un 1D 225 comme suit: 


POKE DTH$(HTD(ADDRS('"TOTOLEX"))+37),"1E" 


Autrement vous trouverez dans Les prochaines pages un 
récapitulatif de tous Les Lex parus dans Le journal depuis Le mois de 
février 1985. 


Heureuse programmation à tous 
Michel MARTINET 


PROGRAMME MAKELEX 


10 CALL MLEX 
à SUB MLEX @ SFLAG -1 à PURGE AH à INPUT "Nb. d'octets: ";N à LC OFF 
20 CREATE DATA AH,1,N-4 @ A=HTD(ADDR$S("AH")) à B=A à GOSUB 130 
30 Q=1 à X=0 à INPUT "000: ",P$;:A$ à C$=A$ à S=0 à GOSUB 90 
40 Q=2 à X=1 à GOSUB 80 à A$=AS$S&CS à A=A+37 à N=N*2+37 
à Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=C$S[5*FLAG(5)+1] à POKE DTHS(A),CS$ 
à A=A+16-5*FLAG(5,0) à NEXT X à Q=4 
60 DISP DTH$(X)13]; à INPUT ": ",P$[1,MOD(N,16)];C$ à GOSUB 90 
70 POKE DTH$(A),C$ à POKE DTH$(B),A$ à CFLAG -1 à END 
80 DISP DTH$(X)[3]; à INPUT “: ",P$;C$ 
90 DISP DTH$(X)[3]; à INPUT “ sm ","---n:D$ 
100 M=S à FOR Z=1 TO LEN(C$) @ M=NUM(CS[Z])+M+1 @ NEXT Z 
110 1F D$=DTH$(MOD(M,4096))[3] THEN GOSUB 130 à S=M à RETURN 
120 DISP “Erreur de somme" @ BEEP Q P$=C$ à POP à ON Q GOTO 30,40,50,60 
130 P$=nU----.-.......... " à RETURN 
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DESAL ID#E1 718 octets 038: FO8F83DB025A8020 87F 012: F534B110C137C213 204 


039: 81c1B178F2D6D714 C20 013: 58F83DB0137C2135 591 
0123456789ABCDEF sm O3A: 21311BE95F214213 F90 014: 1038F83DB0718F13 91E 

03B: OCF4B1181AC214A7 32D 015: 710AC2D7D2109118 CA1 
000: 44543514C4020202 34B 03C: E70D4159017054E8 6AE 016: ABA136BF2BF2BF2A 07E 
001: 802E009371700158 6A3 03D: D84A8080394508FA A57 017: B61081BB98F2DB14 428 
002: 1A5001E10506E200 A03 03E: B6308FEA2304908D DF4 018: 411311AD5DBE98B6 7D1 
003: FB30000000000000 D3E 03F: B2E208DD97308F13 194 019: 65DB13411A1351CF B60 
004: 012100FF0019100F 09F 040: DBOD230A8B6F2D68 54E O1A: 11BD574BEB8ADA375 F1C 
005: A10BD100F5200500 40A 041: OD00D442133C2131 881 018: DE1351CD1471C113 2AB 
006: OF03025200FB1444 771 042: AF01531135D1207F C2F 01C: 7111E2137DA78BEC 655 
007: 2455644210714353 AB9 043: 009680056F8D91FB FC5 010: 2136D87D1F704011 9CC 
008: 4422071445844230 DFF 044: 08F670B1401BF1A8 35A 01E: BE35E27D0FDB1341 D82 
009: 7844514424072554 151 045: 8BF4BF4018FAA251 713 O1F: 19057F8EE91351CF 140 
O0A: 4442501FF4118F83 4D0 046: 3314648FC70B14CC AAD 020: 3420000057110136 485 
008: DBOD60A871A51360 861 047: 3173B6A53D84228F E3E 021: D711A8A3E3666F13 823 
00C: 6137C2134135AD2D BE3 048: DF8E017F1361BB98 1F3 022: 7E98B692C91358A9 BCA 
00D: 681E81ED7C6BF2BF FBB 049: F21448F322B15090 592 023: 0018110114E14D11 F2E 
O0E: 2A0E109CF4811831 340 O4A: 6C64691007F4F118 916 024: 9E6E6109CDCD50E8 2F7 
00F: 5A32172201C11495 69F 04B: D7DAC910909108C4 CC9 025: DD44901FB98F2147 69E 
010: 7E071341CF1198D8 A33 04C: D68FA90F0110130C 0O5A 026: 135702EDA3401000 A02 
011: 32F08D91FB080CF2 DDF 04D: F4D1AC215A08F841 401 027: EA1198F601B11CF1 DA6 
012: 08F670B15F18FAA2 188 O4E: 7114917116063EF1 76C 028: 18BF6BF6BF613411 153 
013: 513314648FC70B14 505 04F: 19135208FE83B11B AF5 029: 9B8F28F230F15D68D 515 
014: 4D309A0ABF1A88BF 8CD 050: B98F21461348DC32 E87 O2A: C32F0 638 
015: 4BF4AGES9CAF4034 CBA 051: F025101086000F71 1E2 
016: 118F130B0D23068A 01C 052: 00000000000000€1 508 FILELEX ID#E1 64 octets 
017: 63A1585175137062 383 053: 000FFB4549575149 88B 
018: 2769FD68F1C81158 724 054: 44542101FF001361 BE7 0123456789ABCDEF sm 
019: 11C613324AC280FF AB6 055: 081371098F2C6004 F51 
O1A: 8F84171071355901 E18 056: 511191351181348D 2A9 000: 6494C454C4548502 376 
018: C915991098508F06 197 057: BACA18F127006BDF 661 001: 802E001471700158 607 
01C: 4A18F7B1818FE83B 54E 058: 25C0C000000F7100 9BC 002: 580001E707000000 A08 
01D: 18DC32F041113713 8BE 059: 0000000000007100 CD4 003: F710000000000000 D36 
01E: 5068F83DB0AD1D88 C72 O5A: O0F725546542C01FF 062 004: 091000F96494C454 DA6 
01F: 1031E20A3302E7D7 002 058: 4118FE83B180C32F 413 005: F3701FF411136068 421 
020: CD4C114BDB8FC70B 308 05C: 0 444 006: F5989057097C908D 7C4 
021: 15700914D17153E0 73D 007: A9390137068F77F9 B56 
022: 71358DC32F04118F ACB REPLEX ID#E1 320 octets 008: OAF0480844BF4071 EE7 
023: 83DB013606137135 E30 009: 351CF1517071348D 262 
024: 1348F064A11CF137 187 0123456789ABCDEF sm O0A: c32F0 385 
025: E28B37413506D6C6 548 
026: BF2BF230F155717F 8F5 000: 255405C454850202 356 ATTNLEX ID#E1 68 octets 
027: AF2D681ED7A4ECF4 CD8 001: 802E001471700158 6A7 
028: 3214ABCA8F841711 06D 002: 582001E606000000 9E8 0123456789ABCDEF sm 
029: 59316117353E8DD4 3F2 003: F710000000000000 D16 
02A: 49007135071348DC 75D 004: OD5000FF255405C4 097 000: 144545E4C4548502 36F 
028: 32F041178007D207 ACB 005: 14345442601FF8A9 417 001: 802E002471700158 6C1 
O2C: 3004248F13DB0AD1 E56 006: 001811C114B11892 772 002: D80001E808000000 A13 
02D: D881D3102CD48214 1DF 007: E70962A014E96600 AEF 003: F710000000000000 D41 
02E: B966001715FED4E4 580 008: CDCD58D11C8DB14B EC8 004: 0E1000D7144545E4 0B2 
O2F: C4BFOBFOAOC1CF15 94B 009: 18D91FB044443480 246 005: 801FF05000F20001 415 
030: 17010772EF8DC32F CE9 O0A: DF884468F83DB08A 606 006: 37061F144F214A31 787 
031: 010F304BF100F020 058 008: 88534200008864D8 974 007: 1E96240CE15D0071 BOC 
032: 0000000000000151 36F O0C: 0C214F1081715541 CDS 008: 358D84A808FA2C20 EAB 
033: 00FD00B2000D9055 6E4 00D: 1BB8AEB0B8A8D06110 075 009: 0E1101EC00008DB2 22B 
034: 454B442F3705F4B4 A72 00E: 8A880017C9F1351C 40F 00A: E200380CF250F 524 
035: 54041FFF70001800 DE2 00F: F076AA11371F495F 7AF 
036: 08F681F070901F17 164 010: 2143135010C80C21 B04 
037: 8F2D41411618F871 4E8 011: 088F83DB01371358 E87 
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DRIVELEX ID#E1 277 octets DESLEX ID#E1 281 octets 00D: FC463159C31DC8FC OCE 
00E: 46314BB31DC8FAF5 489 
0123456789ABCDEF sm 0123456789ABCDEF sm 00F: 311378D626208DD9 80D 
010: 73080394509FFFFD BCD 
000: 4425946554C45485 36D 000: 445435C454850202 35A 011: EFFF8F681FO8FE44 FB2 
001: 802E002471700158 6BF 001: 802E003471700158 6AD 012: A131D021840137FA 32D 
002: E22001E90A000000 A18 002: 732001EC0F000000 A08 013: 809FA8B354137155 681 
003: F0200E3008600000 D66 003: F230000000000000 D33 Oïé: 1208F7B181D23021 A21 
004: OBA000D110EC000D 0EB 004: OCE000F31016000D OAO 015: 083200A10A8F13DB DA9 
005: D4494351424C4549 460 005: 4200B000FF20DF00 420 016: 01371288B6A111A8 11C 
006: 0B54E41424C454A0 7E0 006: OFF34F4E44525143 7AE 017: F14A118D84A8080D 4CB 
007: 1FF10200120402C4 B40 007: 545C0D94E4655425 B34 018: 4490D8D2310C8BA9 869 
008: 568702C811054427 E9F 008: 3554D0794E46542E EBC 019: 08DA114110111A8F BEO 
009: 96675627D20EAECF 259 009: 09051494E445F01F 23B O1A: D791157D11013011 F3E 
00A: F31D29614000D2A6 5DA 00A: FF30001400034C50 59E 018: 98F771818D84A800 2D8 
008: E8A2400076100005 931 008: 001F401E27C20310 901 01C: 032808590003200A 621 
00C: 044D2C454851FF00 CB9 00C: 61E002E7E1031C41 C7D 010: 1331018FAB811137 990 
000: FF07135AC0B44821 O4E 000: E003E70108D84A80 003 O1E: 136058F064A11111 DO1 
00E: 01E5100321007260 38F 00E: 80303500314BBEC1 38F 01F: 315E114A31D09622 071 
00F: D2A6EB8A2C434802E 739 00F: 49171CECEB8AEDE01 75D 020: 1AE68F4058116156 3F1 
010: O08A674D2A6E4A223 AD1 010: 4111371351088F83 AB9 021: ED91348D7B8181 6E7 
011: 1007F00076303480 E1E 011: DBOD6BAA6O7BCF12 E7E 
012: 2EO08A2E1D5D2A6E8 1D9 012: 81358DC32F000136 1F3 CHMDI6LEX ID#E1 77 octets 
013: A691D915D38408F2 570 013: 1081BEF3E2D015A0 58F 
014: 12018D84A8031F34 8E6 014: 8F813811201188D9 918 0123456789ABCDEF sm 
015: 36048F67B90D3CF8 C91 015: 12F0888331361081 C73 
016: F77F90484AC2B469 03F 016: 371091358FC8CB01 FFF 000: 34D4441363C45485 371 
017: c3551371088FD979 3CE 017: OA8F322B11228F32 380 001: 802E004471700158 605 
018: 0137135C2D7351E9 749 018: 2B112210317F8FC1 6FE 002: E90001E313100000 A11 
019: 0A02515859122317 AA7 019: DBO8F322B1123313 A79 003: F710000000000000 D3F 
OA: A1378BF0513758E3 E38 OA: 89E65112231709E6 DEF 004: 002000D934D44413 099 
018: 1938D3939033101E 146 01B: 901226700608034D 143 005: 63311FF95000B500 408 
01C: 8DA939031C347E17 53A 01C: 50001B442E28B680 4B4 006: 01F675F2143131AF 780 
01D: 51432034E3000EA1 89F 01D: 1A4A1E31D28B6801 844 007: 2A4E2380C315D517 B13 
O1E: 33D61537970FC137 C23 O1E: A401E136C2C21361 BBE 008: SA4E55F1371F085F EB7 
01F: 174679F201181351 F81 01F: 4A11AAESAF230196 F5D 009: 20D1451740D57F1F 240 
020: 7FD015B3018FC9E3 330 020: 9COAG6AGDÉSFFAE7 334 00A: 679F215548D84A80 5CE 
021: 050287722314C8F8 6A2 021: 0E62123AE811310A 6AC 00B: 8D303508D2BF30F 933 
022: EC20AEA80DF8D624 A6D 022: AEB96SAOOE6E6AOO A64 
023: 508D20F208D27130 DE1 023: BEE0E661481128FB E12 COMBARR  ID#E1 168 octets 
024: 8F957508D00350F 132 024: 13B81120119137118 15C 
025: 8D912F0 2F1 0123456789ABCDEF sm 
FKEYLEX ID#E1 81 octets 
ENDUPLEX ID#E1 252 octets 000: 34F4D42414252502 364 
0123456789ABCDEF sm 001: 802E004471700158 6B8 
0123456789ABCDEF sm 002: 551001E415100000 9F4 
000: 64B45495C4548502 376 003: F020000000000000 D1C 
001: 802E002471700158 6C8 000: 54E4445505C45485 376 004: 0A2000F90073000F 07E 
002: 6A0001EB0B000000 A29 001: 802E003471700158 6C9 005: 514252541734F4D4 3EB 
003: F710000000000000 D57 002: DF1001E012100000 AE 006: 24511FF882275508 761 
004: 0E1000D764B45495 OCF 003: F920000002500000 D56 007: F499C08D612F0882 AFD 
005: B01FFA6000E50008 457 004: OA8100FFO0ACO00D 0E4 008: 27F308F004D01118 E70 
006: F29D80D910834C10 7E5 005: C10E6100FB54E444 476 009: FFB6CO8F757E0AF9 24D 
007: 00D534444F2DAE6E B8E 006: 55054201954E4445 7D4 O0A: AF7AF6113AF81128 5F8 
008: 6808F8F803101101 EF7 007: 50511F3545142545 B2C 00B: FCA4COBF499C08D6 9C2 
009: B444F21481801524 25F 008: 550542211FF31BF9 EB6 00C: 12F08FC8CB017F7C D81 
00A: B44550A4C1504808 5D5 009: 613131CF961C1531 22B 00D: 40110119720001BC 0D1 
00B: 08D84A808DD97308 971 00A: 118D73200A8FFF81 5C9 00E: E8F439C08F363C08 47C 
00C: D39450F B07 008: 1D0E4003200A8FAB 95E 00F: F757E08F004D0110 802 
00C: 8115DEDB10831FC8 DOA 010: 8FFB6CO8F757E08F BD5 


RS 


011: C14D08FCA4C00110 F6C 005: A11FF8118FBC631D 45D 019: 215203079020278D B79 
012: 0109701011876101 2BB 006: 68FC2530346E7F21 7F0 O1A: F1B064F2153292CF F13 
013: 10119268F674D040 626 007: 37AFO0AF214B328E3 B96 018: B14AD1AE80215329 2A4 
014: 06C2080DF89922AF 9C8 008: D78F943B1D21C114 F32 01C: 2CCA7CFE655F1B8F 689 
015: A20322009B6318FF D4B 009: FCAD88F74030DAAC 30D 01D: 3E22515C515A5912 A00 
016: B6CO8F4F6C04008D 0F7 O0A: OB8A0E18B7B034863 697 01E: 6015C52003140003 D41 
017: 91FB0 21E 00B: OOCAAF23108CA8A4 A4° 01F: 40008F681FO08FBC6 0E1 
O0C: 50B44AF2AC6BF617 DF9 020: 315C0D2A0E8BA908 485 
HMSLEX ID#E1 279 octets 00D: F8D612FO0F 019 021: DO29E0B8C1B989F2 83B 
022: 15008D84A808D394 BBE 
0123456789ABCDEF sm STKLEX ID#E1 107 octets 023: 508DE6A20 DCé 
000: 84D435C454850202 36D 0123456789ABCDEF sm MARGELEX ID#E1 92 octets 
001: 802E005471700158 6C2 
002: 332001E619100000 A01 000: 3545B4C454850202 368 0123456789ABCDEF sm 
003: F230000000000000 D2C 001: 802E006471700158 6BE 
004: 0E4000FBO0E6000F OAE 002: BD0001E818100000 A30 000: D414257454C45485 375 
005: 61058000FF10FB00 427 003: F710000000000000 D5E 001: 802E007471700158 6CC 
006: OF784D435B261784 7AE 004: 002000D935451434 OAA 002: DB0001ED1D100000 A42 
007: D435D271584D4358 B35 005: B4B11FFD90001900 437 003: F710000000200000 D72 
008: 138425911FF88228 EAF 006: 0048F681FO08FBC63 7DA 004: 085000D8D4142574 0E4 
009: 507880799170807B 21D 007: 1440D0B8AC40E4D23 B69 005: 94E4D11FF31C1961 484 
O0A: 618F363C074E0840 59D 008: 1018BA40DA1001F6 EED 006: 4000DB10B1F789F2 818 
00B: 6E2088228507F507 914 009: 75F2147D7D23068F 285 007: 14B1EE74F14F9669 BC4 
00C: 071775072418FA91 C86 O0A: 943B1DBC21742217 608 008: O8FASCE0118D7007 F66 
000: E056D81184074A07 003 008: 41450D57FDB13511 990 009: 4000830008F871F0 2D3 
00E: B117EE0AF22E306A 3B2 00C: OCCD823AF230315D D30 O0A: 8FBC6315708AC40D 680 
O0F: F7CEB8FA34C08FC14 786 000: 5175CC56F1F679F2 ODE 008: 031069EA40DA1F78 A18 
010: DO8F363C077B08FC B38 O0E: D415908D84A808DE 487 00C: 9F2CC1498D84A808 DC6 
011: A4C06A4081184071 EA9 00F: 6A208D39450 éEC 00D: DE6A208039450 086 
012: 607E907BA0AF22D3 250 
013: 163AF7E68FCA4COB 614 REPEALEX ID#E1 266 octets PRIMLEX ID#E1 148 octets 
014: FEO4D074BO08FCA4C 9DD 
015: O8FC14D08F363C08 D7C 0123456789ABCDEF sm 0123456789ABCDEF sm 
016: F5F3D08F363C0870 120 
017: 008218F499C08D83 4A9 000: 2554055414C45485 360 000: 052594D4C4548502 370 
018: 2FO8FDF8E08FFB6C 895 001: 802E006471700158 686 001: 802E007471700158 607 
019: O8F9D3D08F4F6C08 C50 002: 912001EC1C100000 A10 002: C21001EE1E100000 A2F 
O1A: F5F3D08F9D3D0948 O0F 003: F710000000200000 D40 003: F710000000000000 D5D 
018: 80AC0550A4C8F363 3A7 004: 03B100DB25540554 OAA 004: 071000F7052594D4 OC3 
01C: COO3AF22E301AF7E 754 005: 14450C11FF31C1961 431 005: E11FF8118FC1DB01 479 
01D: 6E6018FA34C08F00 AED 006: 4000248FDD410716 7A4 006: O0AF210922719021 704 
O1E: 4D08F4F6CO8FC14D EBO 007: 04828F08B108F898 B32 007: 7B80227580227F70 B45 
01F: O8F004D071BFO1AF 24E 008: 108F851318F2C600 EAC 008: 1118F322B1AF2D6A EE4 
020: 22E306AF7E601137 5D5 009: 4C18FEE010D91082 245 009: FAO4BFBBCEO8F4BC 200 
021: 1081FBA8F21577AF 983 O0A: 48F8A41082103731 5AE O0A: EO8F223811189722 64B 
022: 71CF157712813511 CEE 00B: O8FD7521863EC313 93F 008: 4248F674D04A3247 9CD 
023: 8011371FB98F2151 06B 00C: 65AD8F08B108D127 CDE 00C: C302276302470302 D19 
024: 717FAF4151713517 3EA 00D: 00315C8FC4631350 051 00D: 27A20247420267E1 07D 
025: F01 494 00E: 00007492108AFO0AF 3CE 00E: 0227810267210629 3C4 
00F: 21B989F21560B8EA 771 00F: F60501188D612F0A 74B 
XERRLEX ID#E1 90 octets 010: OC8FBBCEO118AE67 B3B 010: F280C010A1118F32 AC6 
011: 980315C8FAF53128 EDA 011: 2B1D6AFODAT1ACAS E90 
0123456789ABCDEF sm 012: 8F7FCO01F064F2D0 285 012: F813811011101198 1F6 
013: 14BCCD231E08FE6C 64D 013: F8A4COBF4F6CO0500 5A2 
000: 85542525C4548502 363 014: E02034F64F2E9135 9DA 014: 071198D612FOF 882 
001: 802E005471700158 688 015: 15723030E06A0C49 D4B 
002: 880001EA1A100000 A1C 016: OA2666FFA2647131 0D5 
003: F710000000000000 D4A 017: 5C8F10631AF2B266 46F 
004: 071000F785542525 OA3 018: C401BDr3E21F344F 825 
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ONKEYLEX ID#E1 195 octets 018: 311BF2F2AE61328F 7B4 024: 416F41D1361B495F 156 


019: B1DE01338FB1DE01 B62 025: 21328BEFB119AF0D 50B 
0123456789ABCDEF sm 01A: 04108108740002FF ECB 026: A137135EA81C1188 894 
018: 071358FE0C101BB9 260 027: B634B8A2A3E4B8AB33 C3C 
000: F4E4B45495C45485 390 O1C: 8F21F045F2746F8F 60D 028: EAF8DB10B8FE6CEO O2A 
001: 802E008471700158 6F5 01D: 88870779E787FB8FE 9D1 029: 20108D8E57320110 389 
002: B81001EF10200000 A4F O1E: 21208F3E320B2990 D47 O2A: 11BE2CD751011A13 70F 
003: F020000000000000 D77 01F: 33A30237102AD103 OA9 028: 56CCE31528D39390 AA4 
004: OA3000F3108C000F OE6 020: AC3062640005Dc11 420 02C: D73102662014B171 E03 
005: F3455253544F475E 46F 021: BA6E96EBO11BAE2B 7F2 020: 1481619661FD4580 179 
006: 4F1F34552535B454 7EF 022: 6610810B65AF11BD B84 O2E: 14C161CC57FCFBAF 549 
007: 9535021FFO00A82B0 B71 023: AF4F4B669E67E11B F4B 02F: AD018422730FD88F 8E9 
008: 6808F800802F0C4C EFF 024: DAF4F4AE6S8D7EFE 348 030: 83DBOD6ADODA81C1 CAB 
009: 4AF38AC606D40D82 2AB 025: 8FE9220D011BAEA8 6FF 031: 37135C2C20788497 041 
O0A: 77E505802E693028 623 026: FB13B104AF61148F AA3 032: E9E91353F02F312E 3E2 
00B: 7F405802E67202A7 9A1 027: AODE01318FA0DE08 E52 033: 2C2A3B3920A14B96 774 
O0C: 0405802E65102B71 D01 028: D912F018976F2142 1E0 034: 261850CD4801715C AËE 
000: 305412E6300B07B0 069 029: 1308F7AA808D7E47 586 035: E1104241108A0D12 E51 
00E: 7807B0720A82A0E8 3FD 02A: 0 587 036: 71C114BBF6BF6962 201 
00F: 008080AFB1328091 782 037: 710D52F4B18709CC 59F 
010: 2FO0D4C40C5BFC401 B31 FORMALEX ID#E1 454 octets 038: C10051C1188A160E 918 
011: 0013610A1371088F EB8F 039: 5E5D4CCDB1351CF8 CE9 
012: D4DOO8FEEO10AF34 242 0123456789ABCDEF sm O3A: FB13B1AF68D832F0 OA4 
013: C2AE48F3E320F294 5F1 038: F 0E8 
014: 003A4023B4033C40 951 000: 64F425D414C45485 385 
015: 2AD403AE4000AFB1 CF3 001: 802E009471700158 6DE PRINTLEX ID#E1 565 octets 
016: 1013111280912F0B 05D 002: 093001E226200000 A1C 
017: 07807807807807B0 3EA 003: FB830000000000000 D57 0123456789ABCDEF sm 
018: 72068DF2E64FF2E6 7A5 004: 066100F110EA200F OCA 
019: BEF2E62EF2E690F2 B8E 005: 020EC100F130E 110 436 000: 052594E445C45485 378 
O1A: E60DF2E67CF E3B 006: OF2407D000FD3454 787 001: 802E000571700158 6C9 
007: E44554254222B345 B21 002: E64001E721300000 A1B 
MENULEX ID#E1 318 octets 008: 43555255432D64F4 E94 003: F170000000000000 D49 
009: 25D414454242D255 1FD 004: 08C100DB000D100D OC4 
0123456789ABCDEF sm 004: 4445534544252B35 55A 005: 6106E100DD10DF10 44B 
008: 0514345442621FF0 8BF 006: OF82042200DF2003 7B2 
000: D454E455C4548502 383 00C: 48F83D801368F534 C56 007: 200063034200D140 B03 
001: 802E008471700158 608 000: B1137C2109134135 FB4 008: B8200DC409330003 E80 
002: 182001E121200000 A12 00E: D38508418423102A 31A 009: 50CA300D660EC300 207 
003: F710000000000000 D40 00F: ESCC4E2851CC1811 6C4 O0A: D72454C4C472724F 59B 
004: OF1100F7D454E455 0C9 010: 4E965F08708EE 785 A6C 008: 4C44482334259275 900 
005: 121FF8FBC6315C0D 482 011: 05808408521C114D DD2 00C: 4353442A236464B2 C67 
006: 2A6E8BA008D029E0 827 012: 51D86011861C0862 13E 00D: 3C464C27D4F44454 FFA 
007: 1B765F2146D71A29 BB7 013: 70171CF018118FBC 4D5 00E: D2705542564E2305 365 
008: 6F1468AEB01A265F F63 014: 631440D017F13713 838 O0F: C4F2F55E4445425C 708 
009: 14613414A31C2962 2C6 015: 51098F064A173004 B9F 010: 494E403775251405 A69 
00A: A218390C50163316 62A 016: B231025908F40581 FO07 011: 131FF84466008542 DD9 
00B: C8FB6A804117F803 9CA 017: CC56F01411714F11 289 012: 0048F73321F0831D 151 
00C: 1028039390161136 D23 018: 98F814811368408F 61E 013: 031048D393900713 4A8 
00D: 13410A31C2AE531D OA9 019: 064A18D7B1818D91 9AF 014: 5E607700007D534D 835 
00E: 014A960A01619662 40E O1A: FB0842274508F13D D3D 015: 1000C906D606D020 B9E 
00F: F118A6E10896E991 7AA 018: B0137135C21098F0 0B0 016: 153101874008D84A FO05 
010: 011FB98F21B045F2 B41 01C: 64A1118C642D8A88 442 017: 8014A310E 9620003 260 
011: 7E108FFD15111111 EC2 01D: 18BE31E2AD0DA81C 803 018: 8D30350335402181 582 
012: A1358F327908D572 249 01E: 81C7B7F8508F7B18 BB2 019: 8FDFC2014B8DCF25 982 
013: 511577154717F16F 5BF 01F: 18FE83B18DC32F08 F66 O1A: 08F8BF303154966F D1B 
014: 271571154120018F 912 020: FBC6315598A80917 300 018: 11718FA2C200E1CF OBA 
015: E92208DEE0108812 C9E 021: F100018DD4490842 677 01C: 1ECBFO008D530308D 45E 
016: 71FE17F103D0E4A4 045 022: 27ADF769E119110E A18 01D: B2E208FE7A204B17 804 
017: EAGE4CO7ADE17F12 40D 023: 244EE24FD10ADA13 DC7 01E: 5108D6CA208DE6A2 BAC 


TEST ED 





01F: 08D074508D271301 F12 00D: A1361191358508FB OAO 001: 802E002571700158 681 
020: 8FFFA7FFF780F170 2F3 00E: D58117F17115FB17 42F 002: 853001E438300000 A03 
021: ABFFFFOFFF745F49 6F2 00F: B1331011331CF812 796 003: F830000000000000 D3E 
022: 070FE1F079EE1E01 A9C 010: 81231F28F234B1DA B2C 004: 0E6000FD0020300D OAC 
023: SFFFA4FFF74006D2 E71 011: 8F834B129B92B92B ED3 005: 61015000F1204900 3EF 
024: F1F659F2AE214D7A 233 012: 92892B92892D6243 268 006: OFA209F200D94444 776 
025: CE1D001001371091 597 013: 1F22015578F064A1 5DF 007: 14953543544D4955 AEO 
026: 351C12031B114D8F 914 014: 8408D78181F 85B 008: 3744F4754263544F ESA 
027: 064A18408D7B1811 CBC 009: 475735D44495831F 1D9 
028: OFFFAFEFF74BF748 O8C KBDLEX ID#E1 309 octets O0A: F811852684088227 54F 
029: E1COCEEFFSEEFF7F 4A6 008: 34117F1087931118 BAC 
O2A: 9F7F6E1A08DC2B90 86B 0123456789ABCDEF sm O0C: 9F231B7A8FB13B1B Cé4 
028: 14FFF53FFF7460AF Cé4 000: CC6010872AFA8FB1 025 
O2C: 2A9697607043103A FC3 000: B42444C454850202 365 00E: 3B1AF68D832F0811 3C1 
02D: 6ABFE1DEO8F12DE0 391 001: 802E001571700158 687 O0F: 8427FFO0CC20D2307 75A 
02E: 3A5B162B60035A72 70F 002: E62001E333300000 A06 010: 8FE6CE087221816A AFF 
02F: 75BF15CA13606671 A9B 003: F710000008800000 D4E 011: D2AA28166DCF17F1 EBA 
030: E99EFFEAEFF/36ED EB3 004: 0C1000D5B4244433 0B5 012: 331011338F624202 207 
031: 031C4540E47D206C 236 005: 1FFA6000E5000048 42F 013: 9021012003054045 538 
032: 4E048F871FO8F2EA 5ED 006: F871FO08FBC6315A0 7DE 014: 0960399444E455C4 885 
033: 21044F0AF2328219 960 007: 3048B240D0814A44 B4F 015: 2969803994442514 C14 
034: F2008D91FB0AE7D8 D1F 008: 317F948C08FAF531 EF6 016: D42967703F944454 F92 
035: 755F367B162C615C 083 009: 5908F106311F9E6F 28E 017: 25342554D42F6850 303 
036: 6166815815310322 3FD O0A: 215141EA89F15148 60€ 018: 3994445554A42960 681 
037: D4D146A148161811 781 00B: DB84A808DE6A208D3 9BE 019: 403F9444542544E4 9F4 
038: ODSDEAEB14C16131 B2F 00C: 945031819614000D D1F O1A: 54652F6E20389444 D77 
039: 1014C18E700007DA EA9 000: BD5317F8FC4631D9 OD7 01B: 54D414352B1CB612 OF8 
03A: 349BEFFC20613606 247 00E: D75AE1B9E6F21521 485 01C: 03F548434E414D49 47C 
03B: 6B6DÉF8F93EFFBIE 62E O0F: 1AA89F15619160D3 813 01D: 4442F1CF66001C91 804 
03C: FF14A8F504505D17 9CD 010: 060E1291A4C3090E B94 O1E: 5518F064A1840208 B6F 
03D: 24DBB162C6732307 D53 011: 1291E881108FAODE F3A 01F: D7B1818FC1DBO0AF8 F3D 
03E: 6363661304743F17 OC8 012: 015248F3E320E2B0 2BA 020: 2031BE048408FC46 2C5 
03F: F1331011BE95F214 44A 013: 123511331216209F 608 021: 31550850AF990A50 63F 
040: 68BE1213331647A3 7C2 014: F2C21A8831003048 97A 022: 812812812AF721A9 9BB 
041: F1111318FDF8E079 B65 015: 160E4294A4370000 CD8 023: 2873812812AF5A92 D47 
042: 0F13313331057B1F ED2 016: 7D53432000€C17470 03A 024: B718F834B1AFA23A OFF 
043: 6A3D35DFF86DFF70 2AD 017: B0D091B172925363 382 025: 9287A86080DDDFDD 4D4 
044: 3D4F07CCC4B16246 657 018: FF30481694254700 723 026: D2203328518B6B08 84C 
045: 047FBC4B1624644B 9FO0 019: 007D534F3000€C172 A90 027: A2566B5031219E15 BC2 
046: 3DFFO5DFF750D411 DAE O1A: 4010A0F071D132A2 E01 028: F31709E1A1302961 F39 
047: 71AC5B1623713347 126 018: A213137373A6A617 176 029: 33A0E0E05213036B 280 
048: 29C5B162370334F 46D 01C: B7F788D8398989FF 542 02A: 10101301A8A0E058 61D 
010: 1F769F23200415D2 8BC 02B: 0E111213039E3316 979 
INDATLEX ID#E1 147 octets 01E: 60500713614E9E22 C24 O2C: B7031929EBA26E60 D15 
01F: 116114E1619E6CE0 FAB 02: 8D91F803301009E1 099 
0123456789ABCDEF sm 020: 0D9060107134D21F 31B O2E: 2C9658E31519E72E 43F 
021: 769F2156114D1713 68B 02F: 61BF9E39DAE91091 7F6 
000: 94E4441445045485 379 022: 021551170136E614 9DB 030: 02D2304058FE6CE0 B8B 
001: 802E001571700158 6CB 023: 5821850017ACF5B5 D66 031: 8ADDB11296C71320 F21 
002: A21001E232300000 AOF 024: 2514A5D57BBF6B51 110 032: O48FE6CEO8A96061 2C5 
003: F710000000000000 D3D 025: 4944454D57AAF8B5 4B9 033: AF119AE511280403 659 
004: 0C1000FD94E44414 OBE 026: 542525545525D5AF 83A 034: 31030002300031BE 9A0 
005: 455442231FF00137 423 027: 2307253176108003 B7A 035: 6310E10000200031 CD6 
006: 10913610A7040B1C 78A 028: 048169425F654FF ED1 036: BE218F3F5318084A 089 
007: 34414455402A3022 AD6 037: 8083035003 2D6 
008: 2B1E3A4A4B1C3F2B E90 DATELEX ID#£1 427 octets 
009: 1E3D4D4B1C3F2B1E 252 
00A: 31414B1C322FF071 5D0 0123456789ABCDEF sm 
00B: 358FE0C108FFD151 97E 
O0C: 8F99C418FA3A8111 D24 000: 44144554C4548502 35E 
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KBEEP ID#E1 38 octets 0123456789ABCDEF sm 00D: 182184001 FBC 


0123456789ABCDEF sm 000: 345525C454850202 359 CALCLEX  ID#E1 41 octets 
001: 802E003571700158 6AD 
000: B424545405020202 349 002: 9800017000000000 9EO0 0123456789ABCDEF sm 
001: 802E003571700158 690 003: FE0000000800001F D3A 
002: 150001E000000000 9c9 004: F31B8196140001103 090 000: 3414C434C4548502 369 
003: FE0000000800001F D23 005: 1B09664FDBD5317F 442 001: 802E003571700158 6BD 
004: F31B19614000DB10 098 006: 8FC4631D9D75ED1F 80E 002: 750001E000000000 9EF 
005: B0420348E300D732 40A 007: 7B8F2D231C28FFA0 BCB 003: FE0000000800001F D49 
006: 0208F04BE011BD70 794 008: B11FE74F2AF214F8 F89 004: F31B8196140001B4E OC6 
007: 0 7C5 009: F4BCEOB64041F7B8 345 005: 6F2142C451F110AF 457 
00A: F23103814908E0A6 6BE 006: 2308BA63EA6E2531 7E2 
CURLEX ID#71 90.octets 008: A149171AE0810A6A A4D 007: 7610800 94F 


00C: 1491F7B8F28F7415 DEA 
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NOUS EN AVONS 


Sont en vente au Club: 


- Cartes magnétiques pour HP41 au prix de 150FF + 3,10FF de port Les 50 cartes; 
- Cartes magnétiques pour HP71B au prix de 91FF + 3,10FF de port Les 10 cartes; 
- Cassettes digitales pour HP82161A: 100 FF pièce, plus 3,10 FF de port par cassette. 
- Eproms (2716 & 2732) vierges au prix de 60FF + 3,10FF de port pièce. Pour les Eproms 
programmées, nous consulter; 
- Module TIME (82182A) au prix de 400FF + 6,50FF de port. Livré avec manuel en français; 
- Module QUADRAM (82170A) au prix de 400FF + 6,50FF de port; 
- Module HPIL (82160A) au prix de 970FF + 6,50FF de port. Livré avec manuel en français; 
- Pour Les commandes des ZENROM, CCDROM et ROM PANAME nous envoyer 500FF minimum d'arrhes; 
- VASM (Listing en anglais des 3 premières pages de La 41) au prix de 170FF + 13,50FF de port; 
- Le manuel de service de La 41 (en anglais) au prix de 50FF + 6,50FF de port; 
- Le manuel technique du convertisseur (en anglais) au prix de 20FF + 3,20FF de port; 
- HPIL Interface Specifications (en anglais) au prix de 80 FF + 9,50 FF de port 
- The HPIL Integrated Circuit User's manual (en anglais): 40 FF + 6,50 FF de port 
- Interface Kit Technical Guide (en anglais): 15 FF + 3,50 FF de port 
- Manuel technique du Minitel R (Ref. 250 Alcatel): 40 FF + 6,50 FF de port 
- Les anciens numéros au prix de: 
No 1 à 3 au prix de 15FF + 3,20FF de port par numéro, 
No 4 à 10 au prix de 20FF + 3,20FF de port par numéro, 
No 11 à 17 au prix de 25FF + 6,50FF de port par numéro, 
à partir du No 18 au prix de 35FF + 6,50FF de port par numéro. 


Les ports sont les tarifs PTT actuels en non urgent. 


ACHATS GROUPES 


Nous assurons des commandes groupées pour ceux qui désirent profiter de notre réduction 
“spécial Club", soit 25% par rapport au prix HP. Pour ceux qui Le désirent, nous assurons 
l'envoi postal en urgent ou en non urgent. Ces achats concernent aussi bien des modules que des 
calculatrices et autres. 


NOTA: ces deux rubriques “nous en avons! et "achats groupés", sont des services "Club! que nous 
rendons exclusivement aux membres effectivement inscrits au club et possédant leur carte de 
membre PPC-PARIS. 
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19/85 PPC PARIS CHAPTER 


ASSOCIATION REGIE PAR LA LOI DE 1901, ENREGISTREE 
A PARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 82/3240 


BULLETIN D’°ADHESION 


NOM | 
PRENOM 111 
ADRESSE :_i_: 


COMMUNE 
CODE POSTAL iii ii 
TELEPHONE DOMICIL 


PROFESSION 
INTERETS 


MATERIEL HP EN VOTRE POSSESSION 


AUTRE MATERIEL MICRO-INFORMATIQUE 


COMMENT AVEZ-VOUS CONNU PPC PARIS CHAPTER ? 
PUBLICITE MAGAZINE 
AUTRE CLUB HP 
RELATIONS, MEMBRES DU CLUB, AUTRES 


QUE RECHERCHEZ-VOUS AU SEIN DU PPC PARIS CHAPTER ? 


Je souhaite adhérer au club PPC PARIS CHAPTER conformément aux statuts de 
l'association. Au mieux de ma connaissance, je déclare avoir le droit de fournir 
tous les programmes et informations que je vous enverrai (sans enfreindre des 
obligations de secret à l'égard d'autres personnes ou organismes) pour 
publication dans le journal de liaison, sans obligations ni responsebilite 
d'aucune sorte (en cas d'utilisation frauduleuse) de la part des dirigeants du 
PPC PARIS CHAPTER. 

DATE !_i.1/):1 1/19: 1! 


SIGNATURE, PRECEDEE DE LA MENTION "LU ET APPROUVE" 


LE MONTANT DE LA COTISATION AU PPC PARIS CHAPTER S'ELEVE À 300.00 FF. 
ETUDIANTS: 260.00 FF. (JUSTIFICATIF INDISPENSABLE) 
PAIEMENT EFFECTUE LE :_1_1/1:_1 1/19 1 1 À L'ORDRE DE PPC PARIS CHAPTER. 
PAR [I ] CHEQUE BANCAIRE N° BANQUE 
[ ] CHEQUE POSTAL 3 VOLETS N° 
[ ] MANDAT LETTRE 
EVENTUELLEMENT: JE M'ABONNE À COMPTER DU :_:_1/11 1/19: 5: 


JOINDRE À VOTRE INSCRIPTION UNE PHOTO D'IDENTITE ET UNE ENVELOPPE TIMBREE À 
VOTRE ADRESSE. 


UEUILLEZ ENUOYER TOUTE CORRESPONDANCE A: 
MR PHILIPPE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 PARIS (FRANCE) 





TRANSLATER PROGRAM (ADDENDUM JPC28) 


- dessasembleur HP-41 version 4.1 
Le 12.10.85 
J.Baudier PPC-PC 192 
40 DESTROY ALL @ INTEGER R,L,C @ R=4474 @ DIM NS[B] ,R$[CMEM>=R)*R+(MEM<R)*MEM/2-50] 
50 DISP "41 transiater program" & WAIT 2 
60 ON ERROR GOTO ‘ERR1! @ 'INP': INPUT Name ? : !,NS;:N$ à SFLAG -1 @ PURGE N$ à CFLAG -1 


RIZZIZISSSELAELIEZESEZE==SZS=SSSZIEZZSSSEESREES==ES=SSLELLEE=SELLELLSE 
70 PROC‘: CONTROL OFF à RESTORE 10 @ DISP Ready ...' 
80 1F NOT LEN(KEY$) THEN 80 
90 DISP ‘Reading Loop ...! à ENTER :LOOP ;R$S @ L=LEN(RS) à DIM P$S[IL] à P$S=RS à DESTROY RS 
100 C=HTD(P$[L-1]) @ CALL CHECKSUM(P$,C,R) à IF HOT R THEN DISP 'Checksum error' @ GOTO 'ERR2! 
110 DISP ‘Prog 41 :';HTD(PS[1,4]); "bytes! 
120 P$=P$[5,L-2] @ CALL TEXT41(N$,P$) à BEEP 400 à BEEP 800 
130 DISF ‘File is now translated' à WAIT 2 à DISP ‘into : ':N$;' (text)! à WAIT 2 
140 DESTROY ALL @ PUT ‘#43! Q END 


170 SUB CHECKSUM(P$,C,R) 

180 DISP ‘Checksum test ...! @ FOR 1=1 TO LEN(P$}-2 STEP 2 à R=R+HTD(PS$S[I,1+11) @ NEXT 1! 
190 R=MOD(R,256)=C 

200 END SUB 


SIZZZSSIZSEIZIZSEZSSSISSSSSESSSSSISTSTTSSSTESSITISTTTTTIITTITITIIEESzESEEzz 
210 SUB TEXT41(AS,PS) 
220 DIM C$124],FSC29] ,HS[2],1$11),J$11],MS(26],X$(2],YS[(2] à INTEGER P,R,X,Y,T à CREATE TEXT AS 
230 M$='ABCDEFGHI JTZYXL'&CHRS(91)&CHRS(92)BCHRS(93)ECHRS(94)& Q'ECHRS( 127)! abcde! 
240 ASSIGN #1 TO A$ à P=1 
250 ON ERROR GOTO 270 à C$=ADDRS('TIME41') 
260 PRINT #1;' 1&TIMES(1,2)8&'.'&TIMES(4,5J8' '&DATES(5,6]8&'.'&DATES(3,4] @ GOTO 280 
270 P=1 @ PRINT #1:1° 


EZZZIZIZZ=ZSZTZSIIEZZ=ZZ=Z=Z===E=Z=E====S====2Z=ZZE=ES===========L2EZZ===== 

280 'DESAS': H$=P$[1,2] @ L=LEN(P$) @ 1$=H$(1,1] à J$=H$ [2] 

290 IF 1$='F' THEN 'TEXT!' 

300 P$=P$[3] à IF L=6 THEN 'END' 

310 IF H$='00! OR H$='D2' THEN 'DESAS' 

320 IF 1$='1! AND J$<'D! THEN 'NBRE' 

330 IF 1$='9! OR I$='A' AND J$>:7! AND J$<'E! OR H$='CE! THEN 'OCT2! 
340 IF I$='C' AND J$<'E! THEN 'LBLA' > 
350 IF H$='CF' THEN 'LBL' 

360 IF 1$='A' AND J$<'B!' THEN 'XROM' 

370 1F H$='1D' THEN 'GTOA' 

380 IF H$='1E! THEN 'XEQA' 

390 IF H$='AE! THEN 'GTOXEQID' 

400 IF H$='D0' THEN 'GTO' 

410 IF I$='E' THEN 'XEQ' 

420 CALL DESAS41(H$,F$) 


222222 SSSSASSS2R22SSSSSSSSESESSSSE2EEZSEE2SEZSE= = EL2EESESSESEZZ 


430 'PRINT': R=F$[1,31#'LBL' @ F$=! ![1+(P>99)]1&10! [1+(P>9)]BSTRS(P)&CCHRS(O)D&' 1) [R+1] [1,118RFS 
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440 PRINT #1;F$ @ DISP F$ @ P=P+1 @ 1F LEN(PS) THEN DESAS' ELSE END 


450 "TEXT': CALL ALPHA(P$,F$) @ GOTO PRINT! 


460 'NBRE': FS$z='! 


EEESEEEREESSEREEELEEEESEEEEEESESEETIESEESESESEZESEEEZESCELESEE 

470 BOUCLE! : 

480 1F JS<'A' THEN F$=FSESTRS(HTD(J$)) ELSE F$=F$£&'. E-'[HTD(JS)+(J$>'B')-9) [1,1+CJ$=1B')] 
490 IF P$(1,13='1t AND P$[2,2]<'D' THEN H$=P$[1,2] @ PS=PS[3] © JS=HS[2] @ GOTO BOUCLE! 
500 IF P$[1,21='00' THEN PS=PS[3] 

510 GOTO ‘PRINT! 


RRZZZEEZZISEEREEELLESSL==LEEESEEEEESEEZSESZIERESLEZ==== LESSLTIICZIESE 


520 'LBLA': P$=P$(3] @ CALL ALPHA(PS,C$) @ IF NUM(CS[2])<32 THEN C$=C$[1,1)8CS [3] 
530 F$='LBL '&C$ Q GOTO ‘PRINT! 


RESZEESSSELELESSEIEEZZIEZEZLEEES SES ESESESESSSESSSESSESESESEEEESSES 
540 'LBL': X=HTD(P$(1,2]) @ F$='LBL ! 

550 1F X>100 THEN FS=FS&CHRS(X-37+11*(X>112)) ELSE FS=FS&STRS(X) 
560 P$=PS[3] à GOTO ‘PRINT! 


ESSSSSSSSSSSSSSSZIZIESZS=ESZSSSESSSSSESESSESSSSSZESSES=ZZSEESESSSES 

570 'END': F$='END' @ DESTROY @ GOTO 'PRINT!' 
HZSSSSSSS2S2SSSSSSSSEZZELEITSSSSSSSSSESESEESSSSSSSSSSSEZESSEEEE 

580 'OCT2': CALL DESAS41CHS,F$) & R=HTD(P$[1,2)) @ P$=P$[3] à T=1$='9! AND JS>'B! 

590 IF R<102 THEN F$=F$£! 01[1,1+CR<10 AND NOT T)J&STRS(R)[1+(R>99)+T*(R>10)] @ GOTO ‘PRINT! 
600 1F R>127 AND R<230 THEN F$=F$8& IND 0°11,5+(R<138))ESTRS(R- 128) [1+C(R>227)] @ GOTO ‘PRINT! 
610 F$=F$&! IND'[1,4*(R>127))1&' &MS[R-101-(R>1273*128] [1,1] à GOTO ‘PRINT! 


620 'GTOA!': SFLAG 0 


EZSZ==22=====SSSSSSSSZIZIZZIZ=Z=====S=S===Z=EIZ==SSSSSSZSSESSSSSESSEEEE= 


630 'XEQA': CALL ALPHA(P$,C$S) à F$='XEQ GTO ‘[5*FLAG(0)][1,4)&C$ à CFLAG O0 à GOTO PRINT‘ 


640 GTOXEQID': R=HTD(P$[1,2]) à P$=P$ [3] 

650 1F R<102 THEN F$='GTO IND 0'[1,8+(R<10)]8&STRS(R) [1+(R>99)] & GOTO ‘PRINT! 

660 IF R>127 AND R<230 THEN F$='XEQ IND 0![1,8+(R<138)]&STR$(R-128)[1+(R>227)] à GOTO ‘PRINT! 
670 F$='XEQGTO! [4*(R<128)] [1,3)8' IND '&MS[R-101-(R>127)*128] [1,1] @ GOTO ‘PRINT! 


689 'XEQ': SFLAG 0 


“ 
ÆEZZSZ=Z==Z=Z==ZSEIZZ=-===S===SSSSESSEZSSZESS==EEESZSESZIZSEZZESEEZ==EEEE 


690 ‘GTO': R=MOD(HTD(P$[3,4]),128) @ P$=P$(5] à F$='GTO OXEQ O'[6*FLAG(0)] [1,4+(R<10)] 
700 IF R<100 THEN F$=FSESTRS(R) ELSE F$=FSRCHRS(R-37+11*(R>112)) 
710 CFLAG O @ GOTO ‘PRINT! 


720 'XROM': R=HTD(JS&PS[1,2]) @ X=R DIV 64 à Y=MOD(R,64) 

730 X$=10! [1+(X>9)]BSTRS(X) à YS= 0! [1+(Y>9)]ESTRS(Y) 

740 F$='XROM '&XS&','&YS à CALL SXROM(FS) @ PS=P$S[3)] à GOTO ‘PRINT! 
750 END SUB 
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760 SUB ALPHA(PS,AS) 

770 A=HTD(P$(2,2)) & A$z1n1 Q PS=P$[3,LEN(PS)] 

780 FOR P=1 TO À @ R=HTD(P$[1,2]) @ IF R#13 THEN AS=ASECHRS(R) ELSE AS=A$&! ! 
790 P$=PS[C3,LEN(PS)] @ NEXT P @ AS=A$S&'u! 

800 END SUB 


ŒUXELESESSSEEENEZERNEEEEEZELELELEEZEESENESECELSEEERESELESESEZESE 
810 SUB DESAS41CHS,F$) 

820 ON ERROR GOTO 'ERR! 

830 IS$=ADDRS(!FONCTS41) @ GOTO 850 


EZSSZSSSSEZELLEESEZISSEESSSEESSSSSSSLESSLESZ ERSESXERESEESSSSESSEZE 
840 "ERR': BEEP 100 @ DISP ‘File FONCTS41 needed! à END ALL 
850 ASSIGN #2 TO FONCTS41 à READ #2,HTD(H$);F$ @ END 
860 END SUB 


870 SUB SXROM(FS) 

880 X=VAL(F$(6,71) à Y=VAL(FS19,10]) à N$="! 
890 ON ERROR GOTO ‘NOTFOUND'! 

900 IF X=17 THEN N$='PLOT141! 

910 IF X=18 THEN N$='PLOT241! 

920 IF X=22 THEN N$='ILDEV141! 

930 IF X=23 THEN NS$S='EXTIO41! 

940 IF X=24 THEN NS$='ILDEV241! 

950 IF X=25 THEN N$=!XFUNCT41! 

960 IF X=26 THEN N$='TIME41! 

970 IF X=27 THEN NS$='WAND41! 

980 IF X=28 THEN NS='HPIL241! 

990 IF X=29 THEN NS$='HP1L141! 

1000 IF LENÇNS) THEN IS$=ADDRS(NS) à ASSIGN #3 TO N$ ELSE END 
1010 READ #3,Y;FS$ 


FRSSSSSTSELSSSSSSESESSSSSSSLILSSSSSSSSSSESSSSEZSS=SSSSESSSSSSSSSEE 


1020 NOTFOUND!: 
1030 END SUB 


A eee ee A ee re ee er ee er ee D A RAR PRE de de he fee ee ee er re ee ee ee ee ee A A RAR RAT 
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